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Diversified Software Systems, Inc. 


Diversified Software Systems, Inc. is committed to producing products and services for the 
continuity of operations. Continuity of operations, in this context, means production errors are 
minimized, daily operations are effectively managed, recovery time due to production failures 
is minimized, and modified applications are returned to service quickly and effectively. 


For over 20 years, Diversified Software has provided enterprise data centers with solutions 
to automate mission-critical production processes. Every product and service helps clients 
achieve an error-free production environment and provide data center personnel with critical 
information about production applications. 


DIVERSIFIED SOFTWARE PREMIER PRODUCTS 


JCL Quality Management Products 


PRO/JCL™ for OS/390™ is the most advanced JCL quality management product on the 
market today. PRO/JCL is used for error detection, global change, and standardization 

of JCL. It is used in all phases of the JCL lifecycle, from development, testing, and staging 
through production. PRO/JCL is used to achieve and maintain the most error-free, 
standardized production environment possible. Clients can automate one-time projects 
like SMS conversions, consolidations, and JCL standardization efforts. 


JOB/SCAN™ is a fully integrated MVS JCL automation solution. By simulating the execution 
environment, syntax and run-time errors are detected prior to the production run. Site specific 
standards are enforced with user-defined rules. SMS conversions, consolidations, and 
production turnover are streamlined. 


Information Center Products 


¢ INFO/X™ is an enterprise-wide cross-reference solution, specifically designed 
for operations. It provides information and establishes the inter-relationships and 
dependencies across: JCL, PROCLIBs, MVS catalogs, VITOCs, SMS, IMS, DB2, IDCAMS, 
and more. Production control analysts, systems analysts, and programmers use it to find all 
occurrences of PROCs, programs, data sets, DB2 tables, and SYSOUTs, as well as the 
contents of specified items. 


DOCU/TEXT® is a powerful job and system analysis/documentation product for MVS 
systems. DOCU/TEXT automatically generates step-level flowcharts, cross-reference reports, 
and system overviews. On-line job information is produced automatically, including PROCs 
used and steps executed. Critical job information such as rerun, restart, and set-up 
procedures can be stored on-line for instant access. 


INFO/XL™ is the new Information Center for the Continuity of Operations. INFO/XL provides 
the place to find processes, procedures, and event recovery knowledge. 


Visit our website: www.diversifiedsoftware.com 
408.778.9914 + E-mail: jclpros@diversifiedsoftware.com 


PRO/JCL, JOB/SCAN, INFO/X, DOCU/TEXT, and INFO/XL are trademarks and registered trademarks of Diversified Software Systems, Inc. 
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From the Editor-in-Chief 


Gabe, who is a very prolific writer of languages, boasts writings that extend 
beyond his many well-written technical publications into foreign language 
publications such as: "Talking to Your Household Help in Spanish." From my 
knowledge of Gabe he truly is a “Master of Languages.” 


In an easy-to-use format, Gabe shares with us all there is to know about the REXX 
language. For instance, a seasoned REXX user saw Gabe’s book on my desk and 
asked if he could borrow the book to solve a problem. The book provided the 
answers needed and the seasoned user found the book to be a very valuable 
reference tool. 


If you have a question about the REXX language this 1s the book for you. This 
REXX with OS/2, TSO, & CMS' Features Quick Reference Guide even covers the 
compatibility issues across the different computer platforms. 


Feedback from readers indicates that Gabe includes items needed to use the REXX 
language proficiently. One reader states "...he covers everything completely." 


Where else should you choose to learn a language but from the "Master of 
Languages." You’re referencing the very best. Enjoy! 
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Publisher and Editor-in-Chief 
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Introduction 


REXX is an interpreted language that contains powerful control statements not available 
in other interpreted languages. Interpreted means when the program runs each statement 
is translated into codes the computer directly executes. 


A major feature of REXX is that the data used by a REXX program can be any type of 
data. A variable may contain any value as opposed to a language that accepts specific 
types of data. For instance, in the COBOL programming language when data is defined 
as numeric, the program accepts only number values. Ifa value other than a number is 
used in the numeric variable the program takes an error routine or blows up. 


REXX also allows easy character string manipulation and has a powerful set of built-in 
functions. REXX runs on multiple computer platforms and is easy to learn and use. 


These characteristics make REXX the language of choice for major software vendors 
such as Diversified Software Systems, Inc. 


Diversified Software used C++ to write their new PRO/JCL (JCL Quality Management) 
software package. However, Diversified Software chose standard IBM REXX for the 
user customizable functions of PRO/JCL such as the definition of site specific JCL 
standards. PRO/JCL promotes standardized JCL, streamlines JCL maintenance, and 
eliminates JCL-related production failures. To view a sample of how REXX is used with 
PRO/JCL see Appendix A. 


This book covers all of the REXX functions, instructions (verbs), and reserved variables 
including those that exist on OS/2, TSO and CMS. Any feature that exists on one or 
more of these platforms is so marked. REXX works very much the same on all 
platforms, but there are some differences. I show them under the entry 
COMPATABILITY ISSUES ACROSS PLATFORMS. 


This book does not include add-ons, purchased software, and non-IBM products. 


Where appropriate I have included OS/2, TSO or CMS commands. These are not part of 
REXX! I include them because they are commonly used in REXX programs, for 
example EXECIO, a TSO and CMS command, which can be used only inside of a REXX 
program. 


The index 1s not like most indexes which list only language features alphabetically. They 
are no help if you don't know the name of the language feature. This index shows the 
common English language name for a feature. For example, PERFORM, a COBOL 
verb, points you to the REXX equivalent CALL. 


2 REXX Reference 


Some of the OS/2 functions shown will work only if you preregister them with OS/2. I 
recommend you do what is suggested under RK FUNCADD, below, before you try to use 
those OS/2 REXX functions. 


Before you use any of REXX's built-in function, please read the entry entitled 
FUNCTIONS. 


You may want to own my other books for further information about REXX. These books 
are: 
'"REXX in the TSO Environment’, ISBN 0 471 56188-6, Gabriel F. Gargiulo 
Publisher John Wiley and Sons (800) 225-5945 


'Mastering OS/2 REXX', ISBN 0 471 51901-4 Gabriel F. Gargiulo 
Publisher John Wiley and Sons (800) 225-5945 


Both books are great. They give you longer explanations than are possible in this 
reference. 


For information about REXX directly from the creator of REXX: 
'The REXX Language’, Mike Cowlishaw, Publisher Prentice-Hall 
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ABBREYV Function 

SAY ABBREV(word, abbrey, length) Checks whether abbrev is a real abbreviation of word, considering 
length characters, of abbrev. If length is omitted, all of abbrev is examined. Returns a 1 if true, a 0 if false. 

Example: 

SAY ABBREV('OREGON', 'OR', 2) pe 1 ey 

SAY ABBREV ('OREGON', 'OR' ) fe 1 es 

SAY ABBREV('OREGON', 'ORG', 3) /* 0 */ 

SAY ABBREV('OREGON', 'ORG') /* 0 */ 

Program segment: 


Say "Who are you? Maria, Beth, or Mario" 

Say "please type in your name or abbreviation" 

Pull Name /* converts to upper case */ 

If Abbrev ("MARIA",Name) = 1 then say "you must be Maria" 
If Abbrev ("BETH",Name) = 1 then say "you must be Beth" 
If Abbrev("MARIO",Name) = 1 then say "you must be Mario" 


ABS Function 


SAY ABS(number) Drops the sign of number. Formats the result according to current NUMERIC settings. 
Examples: 


SAY ABS(-123.45) /* 123.45 */ 


SAY ABS(100 - 150} /* 50 */ 
ADDRESS Function 
SAY ADDRESS() Returns the current environment that commands are being sent to. 
Returns: 
On OS/2: 
CMD { under OS/2, the normal, standard, default 
PMREXX { under OS/2 Presentation Manager. OS/2 commands still work 
On TSO: 
TSO { the default, on TSO and ISPF 
MVS { When running through JCL, executing the REXX interpreter directly. 
(IRXJCL) 
ISPEXEC { on TSO, if you have done an ADDRESS ISPEXEC 


and are executing inside of ISPF 
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On CMS: 

CMS { the default on CMS for programs with file type EXEC 

COMMAND { under CMS if you have done an ADDRESS COMMAND 

XEDIT { the default on CMS for programs with file type XEDIT (XEDIT macros) 
Examples: 
SAY ADDRESS () /* CMD or TSO or COMMAND etc*/ 

ADDRESS Instruction Directs REXX to pass commands to a specific environment or command processor. 
ADDRESS environment Changes default environment. Subsequent commands will be sent to that 
environment. 

Environments: 

Under TSO: 
TSO (the default) 
ISPEXEC (ISPF) 
ISREDIT (ISPF editor) 
TSO example: 


ADDRESS ISPEXEC 
"DISPLAY PANEL (PANEL123) " 


Under CMS: 
CMS (the default for programs whose file type is EXEC) 
XEDIT (the default for programs whose file type is XEDIT: XEDIT macros) 


COMMAND (the CMS command processor, bypasses synonyms, requires uppercase, 
requires EXEC for EXEC's, CP for CP commands) 


CMS example: 


ADDRESS COMMAND 
"SPOOL PRINTER HOLD" 


Under OS/2: 
CMD the default 
PMREXX (OS/2 Presentation Manager). Note that there is no need to change environments 
under OS/2, because OS/2 commands can be executed while in the PMREXX 
environment | 
ADDRESS environment "command" Sends command to environment. Only the command specified is sent 


to that environment. 
TSO Example: 


ADDRESS ISPEXEC "DISPLAY PANEL (PANEL123)" 
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CMS Example: 


ADDRESS CMS "PRINT FILE1 DATA Al" 


ARG Function 


SAY ARG() Asks how many argument strings were passed. (Commas delimit argument strings.) You can 
pass several to a function/subroutine, but only one to a main program (executed from the command prompt in an 
OS/2 Window or Full Screen, XEDIT command line or CMS READY prompt in CMS, ISPF command line, ISPF 
Option 6, TSO READY prompt in TSO) Returns a number from 0 up. 

Example: 


CALL SUBR 'SALLY', 'KAREN' 'SUSAN' 
EXIT 
SUBR: 
SAY ARG() /* 2 */ 
RETURN 


SAY ARG(number) If number is a 1, returns the first argument string. If number is a 2, returns the second 
argument string, and so on. 
Example: 


CALL SUBR 'SALLY', 'KAREN' '!SUSAN' 
EXIT 
SUBR 
SAY ARG(2) /* KAREN SUSAN */ 
RETURN 


SAY ARG(number, 'EXISTS') If the argument string numbered number exists, it returns a 1; 
otherwise it returns a 0. EXISTS may be abbreviated 'E.' Only a function or subroutine executed by a REXX 
CALL may receive more than one argument string. (An argument string is delimited by commas.) 

Examples: 


/* in calling program */ 
CALL MYEXEC 'SALLY', 'KAREN' 'SUSAN' 


/* in called program */ 
SAY ARG(2,'EXISTS') /* 1 */ 


/* in calling program */ 
CALL MYEXEC 'SALLY', 'KAREN' 'SUSAN' 


/* in called program */ 
SAY ARG(5, 'EXISTS' } /* 0 */ 


ARG 
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SAY ARG(number, 'OMITTED') If the argument string numbered number was not supplied, it returns a 
1; otherwise returns a0. OMITTED may be abbreviated 'O.' (An argument string is delimited by commas.) 
Examples: 


/* in calling program */ 
CALL MYEXEC 'SALLY', 'KAREN' 'SUSAN' 


/* in called program */ 
SAY ARG(2, 'OMITTED' ) f® 0 */ 


/* in calling program */ 
CALL MYEXEC 'SALLY', 'KAREN' 'SUSAN' 


/* in called program * / 


SAY ARG(5, 'OMITTED' ) f*® 1 */ 
Instruction 
ARG variable-1 ... variable-n Short form of PARSE UPPER ARG. In a main program it receives 


information typed in on the command prompt in an OS/2 Window or Full Screen, XEDIT command line or CMS 
READY prompt in CMS, ISPF command line, ISPF Option 6, TSO READY prompt in TSO. Commas may not be 
used here to separate argument strings. (Because they don't work!) 
In a function/subroutine it receives information passed to it on a function invocation or subroutine call. 

The information is received in variable-] through variable-n. Commas are generally used to separate argument 
strings. 
Example: 


ARG FILENAME 
/*Executed as MYPROG RESUME.DAT*/ 
Say FILENAME /* RESUME.DAT */ 


BEEP Function (OS/2 Only) 


CALL BEEP frequency, duration Sounds the speaker at frequency for duration in milliseconds. The 
valid range for frequency is from 37 to 32767. The range for duration is from 1 to 60000. 
Example: 


CALL BEEP 1000, 1000 /* listen carefully ... */ 
BITAND Function 
SAY BITAND(string1, string2, pad) ——_—_—sString/ and string2 are logically ANDed, with pad used to fill out the 


shorter string on the right. Each bit in the result depends on the corresponding bit in string/ and string2. Each bit 
in the result is set to a 1 if the corresponding bit in both strings is a 1; otherwise, the result bit is set to 0. 
Example: 


SAY BITAND('01'X, 'OF'X) pe "GL #7 
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BITOR Function 


SAY BITOR(string], string2, pad) String] and string2 are logically ORed, with pad used to fill out the shorter 
string on the right. Each bit in the result depends on the corresponding bit in string/ and string2. Each bit in the 
result is set to a 1 if the corresponding bit in either string is a 1; otherwise, the result bit is set to 0. 

Example: 


SAY BITOR( *O1'X, *OR'™X) 7* *OR'X */ 


SAY BITOR('OI'X, OR'X) /*® 'OR'X */ 


BITXOR Function 


SAY BITXOR(string1, string2, pad) String! and string2 are logically XORed, with pad used to 
fill out the shorter string on the right. Each bit in the result depends on the corresponding bit in string/ and string2. 
Each bit in the result is set to a 1 if only one of the corresponding bits (but not both) in either string is a 1, otherwise 
the result bit is set to 0. 


Example: 
SAY BITXOR('O1'X, 'OP'X) f® *OR'(X -*/ 
SAY BLITXOR('O1'X,'10E'X) /*® *ORP'X */ 


Boot Drive, what drive did I boot from? OS/2 Only) 


Boot. Drive = , 
Filespec ("DRIVE", Value ("SYSTEM INI", ,"OS2ENVIRONMENT") ) 


B2X Function 


SAY B2X(string) Converts binary string to a 'hexadecimal' representation. 
Examples: 


SAY B2X('lill ooo0!) /* FO */ 


CALL Instruction Invokes a subroutine. The subroutine must terminate with a RETURN instruction. Also 
turns on or off an error trap that intercepts an exception condition. 


CALL subroutine "string" 
SAY RESULT 


String is passed to subroutine, which picks it up on its ARG statement. 
Example: 


CALL MY SUBR "ABCD" 
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CALL ON condition name CALL may also be used to initialize an exception condition trap (a 
subroutine). If the subroutine is entered, a RETURN at the end will send control back to the instruction after the 
one that failed. 


Condition names: 


ERROR 
FAILURE 

HALT 

NOTREADY _/* OS/2 only */ 


Examples: 
CALL ON ERROR /* command to environment (TSO, CMS, OS/2) 
not correct */ 
CALL ON FAILURE /* command to environment doesn't exist */ 
CALL ON HALT /* attention interrupt or break */ 
/* TSO: press PAl or ATTN 
CMS: type HI when screen displays More 
in lower right 
OS/2: press CTRL and C or CTRL 
and Break*/ 
CALL ON NOTREADY /* O8/2 only. Error in input/output */ 


Example of a condition trap subroutine that could be used after CALL ON ERROR 
ERROR: 
Say “a command to TSO has failed” 
Return 
CALL ON condition name NAME new-name New-name allows the use of an alternate name for the trap. 
Example: 
CALL ON ERROR NAME MISTAKE 
Example of a condition trap subroutine that could be used after CALL ON ERROR NAME MISTAKE 
MISTAKE: 


Say “a command to TSO has failed” 
Return 
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CENTER Function 
SAY CENTER(string, length, pad) Centers string within a larger string of /ength. Pad, if present, is the pad 
character used instead of spaces. 


Examples: 


SAY CENTER ('MIDDLE' ,14) /* MIDDLE */ 


SAY CENTER ('MIDDLE',14,'!-!) /*----MIDDLE--- */ 
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CHARIN Function (OS/2 and CMS Only) 


CALL CHARIN 'file name' 
SAY RESULT 


Reads one character from the file name specified. Does not recognize end of line, or end of file. To tell if end of 
file has been reached, check CHARS (‘file name’). If it returns a 0, you are at the end of the file. 


File name may be the name of a data file, or it may be: 
CON: 
KBD: 
COM1: (communications port) 
COM2: 
QUEUE: 


Example: 


/*reads every character in file, one at a time*/ 
DO WHILE CHARS('C:MYFILE.DAT!') > 0 

CALL CHARIN 'C:MYFILE.DAT' 

SAY RESULT 
END 


CALL CHARIN ‘file name’, start char, how many 
SAY RESULT 


Reads how many characters from the file name specified, starting at start char. Does not recognize end of line or 
end of file. To tell if end of file has been reached, check CHARS(‘file name’). If it returns a 0, you are at the end of 
the file. 

Example: 


/*reads every character in file, one at a time*/ 
f* starting with the 100'th */ 
DO WHILE CHARS ('C:MYFILE.DAT') > 0 
CALL CHARIN 'C:MYPILE.DAT*,100,1 
SAY RESULT 
END 


CHAROUT Function (OS/2 and CMS Only) 


CALL CHAROUT ‘file name', string 
SAY RESULT 


Writes string to the file name specified. RESULT contains the number of characters that could not be written, so 
a 0 indicates a successful write. If the file already exists, 1t continues writing after the end of the file. 
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File name may be the name of a data file, or it may be: 
CON: 
PRN: 
LPI I; 
LPS 
COM1: (communications port) 
COM2: _ 
QUEUE: 
STDERR: 


Example: 


CALL CHAROUT 'C:MYFILE.DAT','This is being written' 
SAY RESULT (hopefully a 0) 


CALL CHAROUT ‘file name’, string, start char 
SAY RESULT 


Writes string to the file name specified. RESULT contains the number of characters that could not be written, so 
a O indicates a successful write. It starts writing at start char and overwrites whatever may be there. Use a starting 
character of 1 to start writing at the beginning of the file and overwrite the entire file. 
Example: 


CALL CHAROUT 'C:MYFILE.DAT','This is being written',100 
SAY RESULT (hopefully a 0) 


CALL CHAROUT 'C:MYFILE.DAT' This statement, which specifies only the file name, just 
closes the file. 


CHARS Function (OS/2 and CMS Only) 


SAY CHARS ("file name') Tells if any characters remain to be read in file name. If it returns a 0, there are no more 
characters remaining in the file, meaning that it is at the end of file. 
Example: 


/*reads every character in file, one at a time*/ 
DO WHILE CHARS ('C:MYFILE.DAT') > 0 

CALL CHARIN 'C:MYFILE.DAT' 

SAY RESULT 
END 
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Comment. A REXX comment begins with /* and ends with */. It may start and end on different lines. 


Example: 


/* This is a comment */ 
Say “ HELLO” /* this is a comment */ 
/* this is a comment 

too 


| 


Comment, initial. | To ensure compatibility on all platforms, it must begin in column 1 of the first line of the 
program, and the word REXX must be in it somewhere. 
Example: 


/* REXX anything */ 

ar 

/* REXX anything 
anything else 

ad 


CMSFLAG Function (CMS Only) 


SAY CMSFLAG (setting) Returns information about the internal CMS setting. If the setting is on, it 
returns a 1; otherwise, a 0. 

Settings: 

ABBREV if abbreviations of commands allowed ---> 1 


if abbreviations not allowed ---> 0 


AUTOREAD if console read is to be done 
after command execution ---> 1 
otherwise ---> 0 


CMSTYPE if commands are to display their output 
at the terminal ---> 1 
otherwise ---> 0 


DOS if DOS environment is on ---> 1 
otherwise ---> 0 


EXECTRAC if EXECTRAC is on ---> 1 
otherwise ---> 0 


IMPCP if "CP" is implied before CP commands 
sien 
otherwise ---> 0 


IMPEX if "EXEC" is implied before EXECS 
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cee 
otherwise ---> 0 


PROTECT if CMS nucleus is storage protected ---> 1 
otherwise ---> 0 | 


RELPAGE if pages are to be released after command execution ---> 1 
otherwise ---> 0 


SUBSET if you are in CMS subset ---> 1 
otherwise ---> 0 


Examples: 


SET IMPEX ON 


SAY CMSFLAG ("IMPEX") /* 1 */ 
COMPARE Function 
SAY COMPARKE(string1, string2, pad) Compares string/ to string2. Pad, if present, is the pad 


character used to fill out the shorter string. If pad is not present, spaces are used. If both strings are equal, it returns 
a 0; otherwise, it returns the character position of inequality. 


Examples: 
SAY COMPARE ('APPLES', 'APPLES' ) /* 0 */ 
SAY COMPARE ('APPLES', 'APPLESAUCE' ) f*® 7 */ 


Compatibility issues across different platforms. 


Initial comment: 
CMS required in first line 
TSO required in first line with word REXX if library/PDS containing program 
has been allocated to DDNAME SYSPROC 
not required if library/PDS containing program 
has been allocated to DDNAME SYSEXEC 
OS/2 required in first line, in first character position 


Compatible solution on all platforms: 
use comment containing REXX, in first line, first character position 


Concatenation || or logical OR symbol | 
Many different keyboards and emulations exist. 
Mainframe emulations often require you to press the [ | or | key 
File Transfer utilities may not translate correctly. 


CMS and TSO require unbroken vertical bar, hex 4F 
OS/2 require broken vertical bar, hex 7C 


Compatible solutions on all platforms: 


14 REXX Reference 


You may concatenate data strings as follows: 
Variable and a literal: Name" is my name" 
(variable and literal juxtaposed) 
Variable and a variable: Name""Last name 
(null string between) 
Literal and a function "Name is "Length(Name)" characters long" 
The logical OR can not be easily avoided. 
A SELECT may be used, at the expense of simplicity. 
Example: 
Instead of: 
If A= 1 |A=2 then /* instruction */ 
ELSE /* instruction */ 
You might use: 
SELECT 
WHEN A = 1 then /* instruction*/ 
WHEN A = 2 then /* instruction */ 
OTHERWISE /* instruction */ 
END 
If you use these symbols, check for validity after uploading/downloading and ASCII/EBCDIC 
conversion, by executing every line of code that contains them 


Logical NOT symbol = 
many different keyboards and emulations exist. 
File Transfer utilities may not translate correctly. 


CMS and TSO accept —, hex 5F 
do not accept *, hex 5F 
OS/2 do not accept —, hex 5F 
accept “ 


Compatible solutions on all platforms: 
use the backslash \ for logical NOT 
use <> for NOT EQUAL 
avoid the NOT altogether, by making the logic positive, 
and using the ELSE for the negative outcome 


Sorting sequence: 


CMS and TSO numbers before letters 
lower case before upper case 
OS/2 letters before numbers 


upper case before lower case 


Compatible solution on all platforms: 
None 


Length of data strings placed in the data queue 
CMS 255 bytes 
TSO >255 bytes 
OS/2.  >255 bytes 
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Compatible solution on all platforms: 
limit items placed in the queue to 255 bytes 


The Data Queue/Stack; 
TSO and CMS _ items left in the Stack are passed to the operating system 
which tries to execute them as commands 
OS/2 items left in the default "SESSION" Data Queue survive the program 
but are deleted when the window (session) is closed 
items left in a named, private Data Queue survive the program, 
the window, and a boot. To delete them, explicitily delete the Queue. 
Compatible solutions on all platforms: 
Clean out the Queue/Stack at the end of the program 
and in all condition traps ending with an EXIT 
DO QUEUED(); PULL; END 
If In doubt as to whether there might be anything left over in the Queue, 
use this code to clean out the Queue 
DO QUEUED(); PULL; END 


Quotes/apostrophes around environment commands: 
Both types work on all systems. 
Of course, you must end with the same type that you started with. 
"ERASE ABC DATA A" or 'ERASE ABC DATA A’ 
"LISTALC STATUS" or 'LISTALC STATUS' 


CMS _ either type just fine 
"SPOOL READER HOLD" 
'SPOOL READER HOLD' 
TSO " may be preferred, because some TSO commands use ' 
so" will avoid conflict. 
"SEND 'HELLO THERE' USER(TSOU01)" 
"DELETE 'TSOU02.TEMP.DATA' " 
OS/2 __' may be preferred, because some OS/2 commands use " 
so ' will avoid conflict. 
'START "THIS IS THE TITLE" /F /C MYPROGI.CMD '! 


Compatible solution on all platforms: 
None. Use whichever you feel is more appropriate. 
Since this applies only to environment commands, 
you may continue to use whichever you prefer for literals. 


Return codes: 
You could never expect different operating systems to give the same return codes 
for similar situations! 


CMS = unknown CMS or CP command gives -3 return code 
TSO — unknown TSO command gives -3 return code 

if addressing ISPEXEC or ISREDIT you may get an ISPF dialog error 
OS/2 unknown OS/2 command gives 1041 return code 


Compatible solution on all platforms: 
Check for non-zero return codes. Test programs carefully. 


Continuing literals over several lines: 
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CMS _ these work 
Say "Hello it is a very nice 
day, do you agree?" 
Say "Hello it is a very nice", 
"day, do you agree?" /* you may use concatenation symbol before comma 
on first line to delete excess spaces*/ 


TSO these work 
Say "Hello it is a very nice 
day, do you agree?" 
Say "Hello it is a very nice " , 
"day, do you agree?" /* you may use concatenation symbol before comma 
on first line to delete excess spaces*/ 


OS/2 _ this works 
Say "Hello it is a very nice", 
"day, do you agree?" /* you may use concatenation symbol before comma 
on first line to delete excess spaces*/ 


Compatible solution: 
Say "Hello it is a very nice ", | 
"day, do you agree?" /* you may use concatenation symbol before comma 
on first line to delete excess spaces*/ 


Instructions (REXX verbs) 
ENDLOCAL and SETLOCAL exist on OS/2 only 


Trace C does nothing when executing in an OS/2 window (it's the default) 
it does, however work when executing 
in the Presentation manager (not the default) 


Trace ! does not inhibit environment command execution on OS/2 (syntax error) 
SIGNAL ON NOTREADY exists on OS/2 only 


The UPPER instruction does not exist on OS/2 
(use Translate function or PARSE UPPER VAR instead) 


Parse [Upper] Linein exists on OS/2 only. 


These functions exist only on OS/2 
Beep 
Endlocal 
Rxfuncadd 
Rxqueue 
Setlocal 
Syscls 
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Syscreateobject 
Syscurpos 
Syscurstate 
Sysderegisterobjectclass 
Sysdestroyobject 
Sysdriveinfo 
Sysdrivemap 
Sysdropfuncs 
Sysfiledelete 
Sysfilesearch 
Sysfiletree 
Sysgetea 
Sysgetkey 
Sysgetmessage 
Sysmkdir 
Sysos2ver 
Sysputea 
Sysqueryclasslist 
Sysregisterobjectclass 
Sysrmdir 
Syssearchpath 
Sysseticon 
Syssleep 
Systempfilename 
Systextscreenread 
Systextscreensize 
Syswaitnamedpipe 


These functions do not exist on OS/2 
FIND 
EXTERNALS 
STORAGE 
USERID 


These functions exist only on TSO 
LISTDSI 
MSG 
OUTTRAP 
SYSDSN 
SYSVAR 


These functions exist only on CMS 
CMSFLAG 
DIAGRC 
Compound Variables REXX compound variables are like subscripted variables in programming languages 
like COBOL and BASIC. The major difference is that the "subscript" may actually contain a character string. 
Examples: 


Day.1l = "Mon" 
Variable = 1 
Say Day.Variable /* gives Mon */ 
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SLudent = "Joa" 
Grade.Student = 98.6 
Say Grade.Student /* gives 98.6 */ 
Concatenating data strings. The concatenation operator (||) may be used to join two items, data strings, 


variables, literals or functions. All spaces between the two items will be deleted. Please note that the symbol (||) may 
introduce compatibility problems across platforms; see the entry on compatibility. 


Example: 


Wo 


Say "the answer is " || 4 * 5 || "3%" 


Concatenating to SYSPROC/SYSEXEC (TSO Only) 


I'll give you two ways. First, a TSO command that you can type in. Then a REXX program. 


You may manually type in the following from TSO/ISPF Option 6, TSO Commands. 


ALTLIB ACTIVATE APPLICATION (EXEC) DA(your-rexx-library) 


Or you may use this program. This is a REXX program that will perform a concatenation of your REXX program library to 
the DDNAME SYSEXEC. It will take into consideration any other library that may be currently allocated to SYSEXEC, and 
reallocate that library along with your program library. 

This program may be executed by an individual after he/she logs on to TSO, or it may be incorporated into an installation's 
current logon processing. 
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/* REXX program that will automatically concatenate your REXX program 
library to the DDNAME SYSEXEC. 

The name of the library can be easily changed. Type it in 
carefully */ 


Add = " 'TSOQU01.REXXPRGS.EXEC!' " /* LIB to be concaten*/ /* ok to 
change to any other*/ 
Searchdd = "SYSEXEC" /* search for this dd */ /* ok to change to 


any other */ 
Found = "NO" 
Concat = "" /* set to null in case DDNAME not alloc*/ 


Dummy = Outtrap("Sysoutline.","*")/*start capture*/ 
"LISTALC STATUS" 
Dummy = Outtrap("OFF") /*stop capture*/ 


Do Lf = 1 to Sysoutline.0 
/* Say "looking at " Sysoutline.I */ 
If Substr(Sysoutline.1,3,8) = Searchdd 
Then 
Do /* DDname found*/ 
Found = "YES" 
la 2 1. = 1 
Dsn = Substr(Sysoutline.I2,1,44) /* dsn max length 44*/ 
Dsn = Strip(Dsn) /* drop blanks */ 
Concat = "t" |) Den || 8°" /* edd apest +/ 
Leave I 
End /* DDname found*/ 
End I 


/* Say "At this point, we have picked up " Concat 
/* Say "Found status is " Found */ 
It Found = "YES" 
Then /* found = yes */ 
Do Is = I + 1 te Sysoutline.0 - 1 by 2 
14 2 13 + 1 
If SubstriSysoutline.14,3,8) <> " 7 
then Leave /* New DD */ 
It Substr(Sysoutline.I3,1,2) <> " " /* dean */ 
then /* dsname */ 
Do /* is dsname */ 
Dsn = Substr(Sysoutline.1I3,1,45) 
Dsn Strip (Dsn) 
Concert = Comaak. }) * TE |) Dem |] tn 
End /* is dsname */ 
End /* Found Yes */ 


/* Say "At this point, we have picked up " Concat 
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/* Ready to allocate */ 


Trace C 
"ALLOCATE DDN("Searchdd") SHR REUSE ", 
"DSNi" CONCAT ADD *")" 


/* LISTALC STATUS */ 


CONDITION Function 


SAY CONDITION(type) When used in a condition trap (ERROR, FAILURE, NOVALUE, HALT, 
SYNTAX), it gives information about the condition that occurred. 


lypes: 


C — gives name of the condition that occurred: (ERROR, FAILURE, NOVALUE, HALT, SYNTAX) 
D — when possible, gives the string that actually caused the error. 


I — gives the instruction that sent to the trap: SIGNAL or CALL. 


S — gives the current status of the condition that was trapped: ON, OFF, or DELAY (currently trapped, further 
trapping disabled to avoid recursive entry to the trap). 


Examples: 


SIGNAL ON ERROR 

'LISTCAT DOG' j* om TSO */ 

'PRINT NOTTHERE JUNK Al ' /* on CMS */ 
‘DIR Z.%.R' (* on O8/2 */ 


EXIT 

ERROR: 

SAY CONDITION('C') /* ERROR */ 

SAY CONDITION ('D') /* LISTCAT DOG or 'PRINT NOTTHERE JUNK Al ' or 
‘bin. 2.2.et a7 | 

EXIT 


CONWAIT CMS Command (CMS Only) 
"CONWAIT" 


This CMS command waits until all output directed to the terminal has been displayed. Often used with DESBUF to assure 
that no terminal display is lost while clearing the terminal output buffer. 


Example: 


PUSH "CART 
"CONWALT" 
"DESBUF" /* CART is lost */ 


COPIES Function 


SAY COPIES(string, how many) Returns how many copies of string, side by side. 
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Examples: 
SAY COPIES ('DO',2) /* DODO */ 
SAY COPIES('DO',0O) f*® Agero characters, or the mull string) 
C2D Function 
SAY C2D(string) Converts string to a binary representation, then to a decimal value. 
OS/2 Examples: 
SAY C2D('B!) /* 66 */ 
SAY C2D('b') /* 98 */ 
SAY C2p("1G'xX) /* 160 */ 
TSO and CMS Examples: 
BAY C20('B*) /* 194 */ 
SAY C2Di{'b") j* 130 */ 
SAY C2D ("S82 'xX) /* 130 */ 
C2X Function 


SAY C2X(string) Converts string to a hexadecimal’ representation. 
OS/2 Example: 

GAY Cox ("A123") /* 41313233 */ 
TSO and CMS Example: 


SAY COX ('AL23') (/* CLRFIPAPS */ 


DATATYPE Function 
SAY DATATYPE(string) Returns NUM if string is a valid number; otherwise, CHAR. 
Examples: 


SAY DATATYPE (1234) /* NUM */ 
SAY DATATYPE (X234) /* CHAR */ 


ar 
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SAY DATATYPK (string, type) Returns 1 if string corresponds to type; otherwise, 0. Note: You may 
need to strip extraneous spaces for this to work: 
Example: 


SAY "Please type in your name" 
PULL Name 
SAY DATATYPE (SPACE (Name,0),'U') 


Types: 


A alphanumeric A-Z, a-z, 0-9 

B binary digits 1 and 0 

C mixed normal and double byte character set 
D double byte character set 

L lower case letters 

M mixed case 

N valid number 

S symbol: valid REXX symbol 

U upper case letters 

W whole number 

X hexadecimal number 0-9 or A-F 


Examples: 
SAY DATATYPE ('A234','N') /* 0 */ 
SAY DATATYPE ('A234','A') /* 1 */ 
SAY DATATYPE('ABCDEF','U') /* 1 ¥*/ 
SAY DATATYPE('aBCDEF','U') /* 0 */ 
DATE Function 
SAY DATE() Returns current date in format 25 Dec 1997. 
Example: 


SAY DATE() /* 25 Dec 1997 */ 
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SAY DATE(gpe) Returns date corresponding to type. 

Types: 

B basedate: number of complete days since January 1, year 1. Example: 727024. 
C century: number of days since January 1, 1900. Example: 33430. 
D days: number of days so far this year. Example: 193. 

EB European date: format dd/mm/yy 

J Julian date: format yyddd 

M Name of current month 

N Normal the default format 25 Dec 1997 

O Ordered: date suitable for sorting: yy/mm/dd 

S Sorting: date suitable for sorting: yyyymmdd 

U USA format: mm/dd/yy 

W Name of current weekday 

Examples: 

SAY DATE('W') /* Friday */ 

SAY DATE ('d"} /* 97359 */ 

SAY DATE('S") f* 19971225 */ 


DELSTACK TSO Command (TSO Only) 


"DELSTACK" Deletes a stack created by NEWSTACK and all that is in the stack. If there are no 
stacks created by NEWSTACK it clears out the default normal stack. 


Example: 
"DELSTACK" 


DELSTR Function 


SAY DELSTR(string, start char, length) Deletes characters from string beginning at start char, for a 
length of length. 


Examples: 


SAY DELSTR('ABCDEF' ,2,3) /* BEF */ 


/* a way to remove a string from within another string */ 


BIGSTR = ‘ISSUES! 
DELET = 'SUE' 
NEWSTR =, 


DELSTR (BIGSTR, POS (DELET, BIGSTR) , LENGTH (DELET) ) 
SAY NEWSTR /* iss */ 
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DELWORD Function 


SAY DELWORD (string, start word, how many words) Deletes how many words words from 
string, beginning with start word. 3 
Example: 


SAY DELWORD('Mary had a little lamb',2,3) /* Mary lamb */ 


DESBUF CMS Command (CMS Only) 


"DESBUF" This CMS command clears the stack and the terminal input and output buffers. Often used with 
CONWAIT, which assures that no terminal display is lost while clearing the buffer. 


Examples: 


PUSH "CART" 
"CONWALT" 
"DESBUF" /* CART is lost */ 


DIAGRC Function (CMS Only) 


SAY DIAGRC (code, "command to CP") Passes code to CP, and the command to CP. Reply from CP 
is the result of the function. A return code from CP is included in the first 11 bytes of the reply. Use of this 
function should be limited to those already familiar with the workings of CP commands. 


Example: 

SAY DIAGRC(8,"QUERY READER" ) /* 0 O NO RDR FILES */ 
DIGITS Function 

SAY DIGITS( Returns the current setting of NUMERIC DIGITS. 

Example: 


NUMERIC DIGITS 7 
SAY DIGITS () j* 7 */ 


DIRECTORY Function (OS/2 Only) 


CALL DIRECTORY ‘directory' 
SAY RESULT 


Captures the current directory in the special variable RESULT and then changes the current directory to directory. 
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Example: 


DIRECTORY 'C:\REXXPRGS' 
SAY RESULT 'WAS THE DIRECTORY BEFORE'! 


CALL DIRECTORY ""' 
SAY RESULT 


Captures the current directory in the special variable RESULT. 
Example: 


DIRECTORY "" 
SAY RESULT 'IS THE CURRENT DIRECTORY' 


D2C Function 
SAY D2C(number) Converts a decimal number to an ascii value. The inverse of C2D. Like the ASC 
function in BASIC. 
OS/2 Examples: 
SAY D2C (66) pe BS 
SAY D2C(98) i* I #7 
TSO and CMS Examples: 
SAY D2C(194) /* B */ 
SAY D2C(130) /* b */ 
D2X Function 
SAY D2X(number) Converts a decimal number to a hexadecimal value. The inverse of X2D. 
Examples: 
SAY D2X (130) /* 82 */ 


SAY D2X (15) /* F ¥/ 
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DO Instruction 


Begins a group of instructions that are performed repeatedly, controlled by a variable or a REXX language element. 


Examples: 

DO I = 1to 10 /* incrementing a variable */ 
SAY I 

END 


/* subtracts 1 from the variable each time through the loop*/ 
DO t= 10 TO 1 BY =] 

SAY "COUNTDOWN " I 
END 


/* loops without limit; end loop with LEAVE instruction */ 


DO FOREVER 
IF TIME() > "16:00:00" THEN LEAVE 

END 

DO UNTIL TIME > "16:00:00" /* loops until a condition is true */ 
SAY "WORK" 

END 

DO WHILE TIME < "16:00:00" /* as long as a condition is true */ 
SAY "WORK" 

END 


DO 10 /* loops a fixed number of times */ 
SAY "BALGO" 
END 


DROP Instruction 


DROP variable Undefines variable. Causes REXX to take the string (which previously was a variable) 
as a literal, equal to its name, but uppercased. 
Example: | 


GREETING = "HELLO". 

SAY GREETING /* HELLO */ 
DROP GREETING 

SAY GREETING /* GREETING */ 


27 REXX Reference 


DROPBUF TSO and CMS Command (TSO and CMS Only) 


D2X Function 


"DROPBUE" Deletes a buffer created by MAKEBUF. Please see MAKEBUF for an example of 
DROPBUEF. 
SAY D2X(number) Converts a decimal number to a hexadecimal value. The inverse of X2D. 
Examples: 
SAY D2X(130) /* 82 */ 
SAY D2X (15) /* F */ 
END Instruction Terminates a group of instructions controlled by a DO. Terminates a SELECT 


structure. See DO. 


END variable Terminates a group of instructions controlled by a DO that increments variable. 
Variable is optional, but is used to make it easier to check for matching DO's and END's. 


Example: 


DO-IT = 1. TO 10 
SAY I 
END I 


ENDLOCAL Function (OS/2 Only) 


CALL ENDLOCAL 
SAY RESULT 


Restores the drive directory and environment variables that were in effect before the last SETLOCAL function was 
done. A 1 is returned in RESULT if the command was successful; a 0 is returned if it was not successful. If you do 
a SETLOCAL and end the program without doing an ENDLOCAL, it is done for you. 

Example: 


CALL ENDLOCAL 
SAY RESULT 


ENDLOCAL Instruction (OS/2 Only) 


Restores the current drive and directory that were saved by a SETLOCAL instruction. If you do a SETLOCAL and end the 
program without doing an ENDLOCAL, it is done for you. 


Example: 


ENDLOCAL 
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ERRORTEXT Function 
SAY ERRORTEXT (number) Returns the REXX syntax error message corresponding to number. 
Example: 
SAY ERRORTEXT (16) /* LABEL NOT FOUND */ 


EXECIO TSO and CMS Command (TSO and CMS Only) 


This TSO/CMS command interacts with REXX to allow you to read and write files n a REXX EXEC. On TSO, a TSO 
command "ALLOCATE" must connect a dataset toa DDNAME before you can execute "EXECIO." 


EXECIO return codes on TSO and CMS 


0 successful 

l truncation on DISK W 

2 end of file on DISKR or DISKRU 

4 empty concatenated dataset on DISKR or DISKRU (can apply only to TSO) 
20 fatal error - no data transferred 

CMS Examples: 


CMS: (filename, filetype, filemode stand for the actual file being 
read or written). 


"EXECIO * CARD "/*reads from reader, puts records into stack */ 
"EXECIO * CARD (STEM RECD.)" /* reads from the reader, puts records 
into array RECD.1 through RECD.n, where n is the number of records 
read. EXECIO sets RECD.0O to the number of records read. 


"EXECIO " RECD.O "PRINT (STEM RECD.)” /* writes the contents of array 
RECD.1 through RECD.n to the printer */ 


"HXECIO " RECD.O "PUNCH (STEM RECD.)” /* writes the contents of array 
RECD.1 through RECD.n to the punch */ 

"EXECIO " QUEUED() "PRINT " /*writes contents of stack to the printer 
*. / 

"EXECIO " QUEUED() "PUNCH " /* writes the contents of the stack to the 
punch */ 


"EXECIO * DISKR filename filetype filemode " /* reads a file, puts all 
records into stack */ 


"EXECIO * DISKR filename filetype filemode (STEM RECD.)" /* reads a 
file, puts all records into array RECD.1 through RECD.n */ 


29 REXX Reference 


"EXECIO " QUEUED() " DISKW filename filetype filemode " /* writes the 
contents of the stack to a file */ 


"EXECIO " RECD.O " DISKW filename filetype filemode (STEM RECD.)" /* 
writes the contents of the array RECD.1 through RECD.n to a file */ 


"EXECIO 1 DISKRU filename filetype filemode " /* reads a record into 
stack, holds record for rewrite */ 


"EXECIO 1 DISKRU filename filetype filemode (VAR RECORD)" /* reads a 
record into variable RECORD, holds record for rewrite*/ 


"EXECIO 1 CP (STRING QUERY READER ALL)" /* passes the command QUERY 
READER ALL to CP and receives one line of the reply from CP in the 
stack */ 


"FINIS filename filetype filemode" /* closes a file */ 
TSO Examples: 


TSO: (ddname stands for the DDNAME that is allocated to the file that 
1s being read or written). 


"EXECIO * DISKR ddname (FINIS)" /* reads a file, puts all records 
into the stack, closes the file */ 


"EXECIO * DISKR ddname (STEM RECD. FINIS)" /* reads a file, puts all 
records into array RECD.1 through RECD.n, closes the file*/ 


"EXECIO " QUEUED() " DISKW ddname (FINIS) " /* writes the contents of 
the stack to a file, closes the file */ 


"EXECIO " RECD.O " DISKW ddname (STEM RECD. FINIS)" /* writes the 
contents of the array RECD.1 through RECD.n to a file*/ 


"EXECIO 1 DISKRU ddname " /* reads a record into stack, holds record 
for rewrite */ 
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EXECUTIL TSO Command (TSO Only) 


This TSO command is used to influence the execution of REXX EXEC's. It may be executed inside of an PROGRAM or 
as a TSO command outside of the EXEC. 


"EXECUTIL command" Executes command, which affects the execution of a REXX EXEC. Normally 
found inside of an EXEC, but may be executed as a TSO command during interactive debug. 


Examples: 


"EXECUTIL TS" turns on interactive debug with an automatic TRACE 
RESULTS. 


"EAECUL LW LE" turns oft interactive debug. 


"EXECUTIL HT" stops display to the terminal from a SAY, even a SAY in 
another PROGRAM that you may execute. 


"EXECUTIL RT" resumes display to the terminal. 
"EXECUTIL HI" stops execution of the program. 


"EXECUTIL SEARCHDD(YES)" Generally executed before the first REXX PROGRAM of the session, 
it causes TSO to search for REXX EXEC's in the dataset allocated to the DDNAME SYSEXEC, (as contrasted with 
the default SYSPROC). Normally not found inside of a REXX program. 


EXIT Instruction 


Ends the REXX program and returns control to the caller, whatever the caller may be. May pass back a return code 
(numeric only) to the caller. If caller is TSO, the return code may be examined by the WHEN TSO command. If the caller is 
CMS, the return code is displayed at the terminal. If the caller is a REXX program, the return code may by examined by the 
RC special variable. If the caller is a CLIST, the return code may be examined by the special variables &MAXCC and 
&LASTCC. Under OS/2, if the caller is a batch file, the return code may be examined by the IF ERRORLEVEL command. 

Examples: 


BRXLT 
EXIT 8 


EXPOSE keyword on the PROCEDURE Instruction 


EXPOSE variable-1 ... variable-n Used with the PROCEDURE instruction on an internal function/ 
subroutine to allow variable-/ through variable-n to be shared with the main part of the program. Makes those 
variables global. Generally found right after the internal function/subroutine's label. 

Example: | 


SUBR: PROCEDURE EXPOSE VAR1 /* VAR1 is shared with the main part of 
the program; all others are protected. */ 
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FILESPEC Function Analyzes a file specification and tells whichever of the following is requested: Drive, Path, Name 
of the file. 
Examples: 


SAY FILESPEC('DRIVE','C:\REXXPRGS\TEST.DAT') /* C: */ 
SAY FILESPEC('PATH','C:\REXXPRGS\TEST.DAT') /* \REXXPRGS\ */ 
SAY FILESPEC('NAME','C:\REXXPRGS\TEST.DAT') /* TEST.DAT */ 


EXTERNALS Function (TSO and CMS Only) 


SAY EXTERNALS() 


In VM/REXX, returns the number of elements in the terminal input buffer (how many lines were typed ahead). 
In TSO/REXX, always returns a 0 because you cannot type ahead. | 


Examples: 
SAY EXTERNALS() /* 0 (under TSO) */ 
SAY EXTERNALS() /* 0 (under CMS, possibly) */ 


FIND Function (TSO and CMS Only) 


SAY FIND(string, phrase) Returns the word number of the first word of phrase in string. 


Example: 

SAY FIND('MARY HAD A LITTLE LAMB','A LITTLE LAMB') /* 3 */ 
FORM Function 

SAY FORM() Returns the current setting of NUMERIC FORM. 

Example: 


SAY FORM() /* SCIENTIFIC (the default) or ENGINEERING */ 


FORMAT Function 
SAY FORMAT (number, before decimal, after decimal) Formats a number. Before decimal is the 
number of characters before the decimal point, padded with blanks. After decimal is the number of characters after 
the decimal point, zero filled. 


Example: 


SAY FORMAT (123.45,5,3) /* 123.450 */ 


FUNCTIONS All of REXX's built in functions may be used in two ways: 


1. Substitution: REXX replaces the function name with the result or answer from the function, for example: 
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SAY LENGTH('ABCDEF') /*becomes SAY 6, which then displays a "6" 
at the terminal or monitor*/ 


SAVE LENGTH = LENGTH (NAME) /* assignment */ 


SAY 'NAME CONTAINS ', 
LENGTH (NAME) ' LETTERS' /* substitution */ 


SAY "DOUBLING YOUR NAME'S LENGTH GIVES", 
LENGTH (NAME) * 2 'LETTERS'/* arith. expression */ 


Notes: 
There must not be a space between the name of the function and the parenthesis. 


The result of the function is not available in the variable RESULT. 
Please separate parameters with commas, not spaces. Example: LEFT('ABCD‘,2) 


2. Using CALL and the reserved variable RESULT to obtain the result of the function's processing, for example: 


CALL LENGTH 'ABCDEF'! 
SAY RESULT /* result contains a 6, which is displayed */ 


CALL LENGTH 'ABCDEF'! 
SAVE LENGTH = RESULT /* assignment ne 


CALL LENGTH NAME 
SAY 'NAME CONTAINS ', 
RESULT ' LETTERS ' /* substitution*/ 


CALL LENGTH NAME 
SAY"DOUBLING YOUR NAME'S LENGTH GIVES", 
RESULT * 2 ' LETTERS ' /* arithmetic expression */ 


Notes: 
You must do a CALL if you wish to receive the result of the function in the variable RESULT. 


Please separate parameters with commas, not spaces. Example: CALL LEFT 'ABCD‘ 2. 
Parentheses are not used. 
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Functions classified by type 
Character string manipulation 


Retrieve information, don't change anything 


Abbreviation, 1s a string an abbrev? ABBREV 


Character or numeric? DATATYPE 

Character string an abbrev. of another? ABBREV 

Compare two strings COMPARE 

Count words in a string WORDS 

Length of a string LENGTH 

Locate word in a string WORD, WORDINDEX 
Numeric or character? DATATYPE 
Parameters, prompt line ARG 


Position of one string in another 
Prompt line parameters 


INDEX, POS, LASTPOS, WORDPOS 
ARG 


String length LENGTH 
String, position of one in another INDEX, POS, LASTPOS, WORDPOS 
Strings, compare two COMPARE 
Symbol, is it a legal REXX symbol? SYMBOL 
Variable, is it one? SYMBOL 
Word in a string, locate one WORD, WORDINDEX 
Words in a string, count them WORDS 
Retrieve changed information 
Align to the right JUSTIFY 
Center a string within another CENTER 
Characters, convert to other characters TRANSLATE 
Characters, delete DELSTR 
Delete characters from a string DELSTR 
Delete words from a sentence DELWORD 
Insert a string into another INSERT 
Reproduce a string COPIES 
Right alignment JUSTIFY 
Spaces, delete from a string STRIP 
Spaces, insert into or delete froma string SPACE 
String centering within another CENTER 
String copy COPIES 
String with characters in reverse order REVERSE 
String, insert INSERT 
String, leftmost characters LEFT 
String, part of SUBSTR 
String, rightmost characters RIGHT 
Upper case, convert TRANSLATE 
Variable, examine its contents VALUE 
Word in a string, give specified word SUBWORD 
Words, delete DELWORD 


Numeric 
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Convert datatype 


Binary to hexadecimal 
Character to decimal 
Character to hexadecimal 
Decimal to character 
Decimal to hexadecimal 
Hexadecimal to binary 
Hexadecimal to character 
Hexadecimal to decimal 


Format a number 

Highest number of a series MAX 
Lowest number of a series 
Pseudo-random number 

Random number 

Sign, determine 

Sign, drop 

Truncate decimal positions 


Environment, interact with 


Clear the screen 
Conditions 

Cursor position 
Cursor visibility 
Data queue, lines in 
Date 


B2X 
C2D 
C2X 
D2C 
D2X 
X2B 
X2C 
X2D 


FORMAT 


MIN 
RANDOM 
RANDOM 
SIGN 
ABS 
TRUNC 


SYSCLS 
CONDITION 
SYSCURPOS 
SYSCURSTATE 
QUEUED 
DATE 


Directory, tell current one and / or change it DIRECTORY 


Drive information 
Environment, what is it 


SYSDRIVEINFO, SYSDRIVEMAP 
ADDRESS 


Environment: return information about the operating system or REXX options 


Error message 

Information about OS/2 profile variables 
Line of program 

Message box, display 

Message, error 

Messages, retrieve 

Numeric digits setting 

Numeric form setting 

Numeric fuzz setting 

Pipe, wait for 

Program text 

Read characters off the screen 

Restore drive and directory information 
Save drive and directory information 
Size of screen, return 

Suspend execution 

Text of program 

Time 

Tone, sound 

Version of OS/2 


ERRORTEXT 

SYSINI 

SOURCELINE 
RXMESSAGEBOX 
ERRORTEXT 
SYSGETMESSAGE 
DIGITS 

FORM 

FUZZ 
SYSWAITNAMEDPIPE 
SOURCELINE 
SYSTEXTSCREENREAD 
ENDLOCAL 
SETLOCAL 
SYSTEXTSCREENSIZE 
SYSSLEEP 
SOURCELINE 

TIME 

BEEP 

SYSOS2VER 
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Files, interacting with 


Functions, interacting with 


Characters remaining to be read CHARS 

Directories, search through SYSFILETREE 

Directory, create SYSMKDIR 

Directory, delete SYSRMDIR 

Extended attributes, change SYSPUTEA 

Extended attributes, retrieve SYSGETEA 

File access, general function STREAM 

File search in one SYSFILESEARCH 

File specification, analyze FILESPEC 

File, delete  SYSFILEDELETE 

File, return unique temporary file name SYSTEMPFILENAME 

File, search through path to find SYSSEARCHPATH 

Read a character CHARIN 

Read a record LINEIN 

Records remaining to be read LINES 

Write a character CHAROUT 

Write a record LINEOUT 

Drop functions RXFUNCDROP, 
SYSDROPFUNCS 

Query RXFUNCQUERY 

Register certain OS/2 specific functions RXFUNCADD 


Objects, interacting with 


FUZZ Function 


SAY FUZZ() 
Examples: 


SAY FUZZ () 


Classes, register 
Classes, show names of 
Create 

Destroy 

Object class 


SYSREGISTEROBJECTCLASS 
SYSQUERYCLASSLIST 
SYSCREATEOBJECT 
SYSDESTROY OBJECT 
SYSDEREGISTEROBJECTCLASS 


Returns the current setting of NUMERIC FUZZ. 


peo *F 


NUMERIC FUZZ 5 


SAY FUZZ () 


ee | 


HI TSO and CMS Command (TSO and CMS Only) 


Stops execution of the program. 


¢ On TSO, it may be executed after an attention interrupt obtained by pressing the PA1 key or the ATTN key. 


¢ On CMS, it may be executed as a CMS immediate command when the screen is displaying MORE ... in the lower 


right. 


HT TSO and CMS Command (TSO and CMS Only) 


Stops display to the terminal. 
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¢ On TSO, it may be executed after an attention interrupt obtained by pressing the PA1 key or the ATTN key. 


¢ On CMS, it may be executed as a CMS immediate command when the screen is displaying MORE ... in the lower 


right. 


IF Instruction 


IF expression 
THEN instruction 
ELSE instruction 


Controls conditional execution of one or more instructions. Checks to see if expression 1s true. If it is, then the instruction 
after the THEN is executed. If it is false, then the instruction after the ELSE is executed. 
IF allows only one instruction after the THEN or the ELSE, but a DO... END sequence will allow use of more than one 


instruction. 


Expression may use one of these comparison operators: 


Equal. If numeric, when compared algebraically. (1.0 is equal to 001.000.) If not numeric, when padded 
with leading or trailing spaces. ("Sue" is equal to'"" Sue "). Case is significant: "SUE" is not equal to 


" " 


sue 


Not equal, the negation of "=." Algebraic comparison and padding are performed. 
Not equal, the negation of "=." Algebraic comparison and padding are performed. 
Not equal, the negation of "=." Algebraic comparison and padding are performed. 


Not equal, the negation of "=." (The symbol "—" may not be found on all keyboards.) Algebraic 
comparison and padding are performed. 


Not equal, the negation of "=." (The symbol '"“" may not be found on all keyboards.) Algebraic 
comparison and padding are performed. 


Greater than. Algebraic comparison and padding are performed. 


Less than. Algebraic comparison and padding are performed. 


>= 
7< 


\< 


6 


a 


>>> 


a 


<= 
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Greater than or equal to. Algebraic comparison and padding are performed. 

Not less than. (The symbol "—" may not be found on all keyboards.) Algebraic comparison and padding 
are performed. 

Not less than. Algebraic comparison and padding are performed. 


Less than or equal to. Algebraic comparison and padding are performed. 


Not greater than. (The symbol "—" may not be found on all keyboards.) Algebraic comparison and 
padding are performed. 


Not greater than. Algebraic comparison and padding are performed. 
Strictly equal on a character-by-character basis. No algebraic comparison or padding is done. 


Strictly not equal, the negation of "==." (The symbol "~" may not be found on all keyboards.) No 
algebraic comparison or padding is done. 


Strictly not equal, the negation of "==". No algebraic comparison or padding is done. 
Strictly greater than. No algebraic comparison or padding is done. 

Strictly greater than or equal to. No algebraic comparison or padding is done. 
Strictly less than. No algebraic comparison or padding is done. 

Strictly less than or equal to. No algebraic comparison or padding is done. 


Strictly not greater than. (The symbol "—" may not be found on all keyboards.) No algebraic 
comparison or padding is done. 


Strictly not less than. (The symbol "—" may not be found on all keyboards.) No algebraic comparison or 
padding is done. 


Expression may use one of these comparison connectors: 


& 


| 
&e& 


And. The conditions on both sides of this must be true. 
Or. One or both of the conditions on either side of this must be true. 


Exclusive Or. Only one of the conditions on either side of this must be true. 
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Examples: 


IF Az=t1 
THEN SAY "A IS EQUAL TO 1" 
BRLSE SAY "IT IS NOT" 


IF A 
THEN 
DO 
SAY "A IS EQUAL TO 1" 
SAY "DO YOU AGREE?" 
END 
BLSE 
DO 
pAY "iT 1s NOT 
SAY "WHAT DO YOU THINK?" 
END 


II 
ke 


IP KEPLY == "YES" 
THEN 
DO 
SAY "YOUR REPLY REALLY IS A YES" 
END 
BRLSE 
DO 
SAY "IT REALLY IS NOT" 
BND 


IF DAY OF WEEK = "FRIDAY" & TEMP > 90 
THEN SAY "HEAD FOR THE BEACH" 
ELSE SAY "HEAD FOR THE SLOPES" 


INDEX Function 
SAY INDEX(string, find string) Finds find string within string. If not found, returns a 0. If found, 
returns the character position of find string within string. 
Example: 


SAY INDEX('is there a needle in the haystack?'!, 'needle') j*® 12 *f/ 
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INSERT Function 


NEW_STRING = INSERT(string1, string2, position) Inserts string/ into string2 after character position. 
Example: 


SAY INSERT ('E', 'ABCDF' , 4) /* ABCDEF */ 


INTERPRET Instruction 


INTERPRET string or variable Causes REXX to look at data (a string or the contents of a variable) 
as if it were a line of your program and it was seeing it for the first time. The data may be a REXX instruction or a 
command intended for the operating system. 

Examples: 


INTERPRET "SAY ‘HI! " 


PARTI. = "Ss" 
PART2 = "ay 'Hello' "| 
INTERPRET PART1 || PART2 


ITERATE Instruction 


ITERATE Within a DO END sequence, sends control to the DO, skipping the instructions between the 
ITERATE and END. ITERATE goes to the DO of the loop it is in. If it is in the innermost loop, it goes only to the 
innermost loop's DO. 

Examples: 


DOG IT = 1 TO 20 
IF I = 13 THEN ITERATE /* to avoid scaring the superstitious */ 
SAY I 

END 


DO 20 
DG. = 1 TS 2 
IF I = 13 THEN ITERATE /* goes to DO on preceding line*/ 


SAY I 
END 
END 
ITERATE variable If ITERATE is found in a loop that steps through a variable, ITERATE may reference 
that variable. This makes REXX check to be sure the ITERATE is in the correct loop, and control leaves that loop. 
Example: | 


DO 1 = 1 TO 20 
IF I = 13 THEN ITERATE I 
SAY I 

END 
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JUSTIFY Function 
SAY JUSTIFY (string, length) Creates a new string from string of length characters. Justifies to both 
margins by adding blanks between words. 
Example: 
SAY JUSTIFY('Good morning', 20) /*Good morning */ 
SAY JUSTIFY (string, length,pad) Creates a new string from string of length characters. Justifies to both 


margins by adding blanks between words. Uses pad as a fill-in character. The default pad character is a space, as in 
the previous example. 


Example: 

BAY JUSTIFY ('Good morning', 20,” 1” } /*Good!!!!!!!!!morning */ 
LASTPOS Function 

SAY LASTPOS(string1, string2) Finds the last occurrence of string/ in string2. Returns the character 

position of the last occurrence. Returns a 0 if it is not found. 

Examples: 

SAY LASTPOS ('left','left right left!) {* 12 *;/ 

SAY LASTPOS('center','left right left') j* QO * 

SAY LASTPOS(string1, string2, position) Finds the last occurrence of string/ in string? starting at 


position. The search proceeds from position to the left. Returns the character position of the last occurrence. 
Returns a 0 if it is not found. If position is omitted, the search begins at the end, as in the previous two examples. 


Example: 


SAY LASTPOS ('’lett', ' Lett right left',5) /* 1 */ 


LEAVE Instruction 


LEAVE Within a DO END sequence, sends control to the statement after the END, thus terminating the 
loop in an orderly fashion. LEAVE ends the loop it is in. If it is in the innermost loop, it leaves only the innermost 
loop. 

Example: 


DO FOREVER 
IF TIME() > "16:00:00" THEN LEAVE 
END 
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LEAVE variable If LEAVE is found in a loop that steps through a variable, LEAVE may reference that 
variable. This makes REXX check to be sure the LEAVE is in the correct loop, and control leaves that loop. 
Example: 


DO I = 1 TO 100000 
IF TIME() > "16:00:00" THEN LEAVE I 


END 
LEFT Function 
SAY LEFT(string, length) Extracts /ength characters from string starting at the left. 
Example: 
SAY LEFT ('ABCDEF', 3) /* ABC */ 


/* a way to force a variable to a specific length, padding with blanks 
or truncating as needed */ 

REQUIRED LENGTH = 10 /* for example */ 

THEVAR = LEFT (THEVAR, REQUIRED LENGTH) 


SAY LEFT(string, length, pad) Extracts /ength characters from string starting at the left. Uses pad as 
a fill character if /ength is more than the number of characters in string. 
Example: 
SAY DEFT ("ABCDEF',7,'1") /*ABCDEF! */ 
LENGTH Function 
SAY LENGTH(string) Counts the characters in string. 
Example: 


SAY LENGTH ('ABCDEF' ) /* 6 */ 
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LINEIN Function (OS/2 and CMS Only) 


CALL LINEIN 'file name' 
SAY RESULT 


Reads one line from the file name specified. Recognizes end of line, unlike CHARIN. To tell if end of file has 
been reached, check LINES(‘file name’). If it returns a 0, you are at the end of the file. 
Examples: 


/*reads every line in file, one at a time*/ 
DO WHILE LINES('C:MYFILE.DAT') > 0 

CALL LINEIN 'C:MYFILE.DAT' 

SAY RESULT 
END 


/*GETS A LINE FROM THE KEYBOARD 
AND BYPASSES THE DATA QUEUE*/ 
CALL LINEIN 

SAY RESULT 


CALL LINEIN ‘file name’, start line, how many 
SAY RESULT 


Reads how many lines from the file name specified, starting at start line. To tell if end of file has been reached, 
check LINES(Jile name’). If it returns a 0, you are at the end of the file. 


File name may be the name of a data file, or it may be: 
CON: 
KBD: 
COM1: (communications port) 
COM2: 
QUEUE: 


LINEOUT Function (OS/2 and CMS Only) 


CALL LINEOUT ‘file name', string 
SAY RESULT 


Writes string to the file name specified. If the file exists already, it will start at the end of the file and extend the 
file. RESULT contains the number of lines that could not be written; a 0 indicates a successful write. 
Example: 


CALL LINEOUT 'C:MYFILE.DAT','This is being written!’ 
SAY RESULT (hopefully a 0) 
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CALL LINEOUT ‘file name’, string, start line 
SAY RESULT 


Writes string to the file name specified, starting at start line, overwriting any data that may already exist. 
RESULT contains the number of lines that could not be written; a 0 indicates a successful write. 
Example: 


CALL LINEOUT 'C:MYFILE.DAT','This is being written',1 
SAY RESULT (hopefully a 0) 


CALL LINEOUT ‘file name' Closes the file. 


File name may be the name of a data file, or it may be: 
CON: 
PRN: 
LPT: 
LPT2: 
COM 1: (communications port) 
COM2?: 
QUEUE: 
STDERR: 


LINES Function (OS/2 and CMS Only) 


SAY LINES(‘file name') Tells if any lines remain to be read in the file name. If it returns a 0, there are 
no more lines remaining in the file, so it is at the end of file. 
Example: 


/*reads every line in file, one at a time*/ 
DO WHILE LINES('C:MYFILE.DAT') > 0 

CALL LINEIN 'C:MYFILE.DAT' 

SAY RESULT /* contains the line just read */ 
END 


LISTDSI Function (TSO) See Appendix B. 


MACROS, User-written subcommands of the Editor 


TSO 
Member in a PDS/library, just like ordinary REXX programs 
Start with usual comment /* REXX anything */ 
First operating system command must be ADDRESS ISREDIT MACRO 
Default ADDRESS environment is TSO 
To talk to ISPF Editor, you must use ADDRESS ISREDIT "the ISPF Editor command" 
To talk to ISPF, you must use ADDRESS IPSEXEC "the ISPF command" 


CMS 


OS/2 
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File Type (second part of file name) must be XEDIT 
Default ADDRESS environment is XEDIT 
To talk to XEDIT, you may simply issue the XEDIT command, in quotes of course 
or you may prefix it with COMMAND: "COMMAND SAVE" 
if it is another macro you are executing, 
you may prefix it with MACRO "MACRO MYPROG" 
To talk to CMS or CP, you may simply issue the CMS or CP command: "PRINT xx xx al" 
or you may prefix it with CMS: "CMS PRINT xx xx al" 
or you may use ADDRESS CMS: "the-CMS-command" or "the-CP-command" 
or you may use ADDRESS COMMAND: 
"the-CMS-command" or "CP the-CP-command" 


Read the entry on Profile. 


MAKEBUF TSO and CMS Command (TSO and CMS Only) 


"MAKEBUF" Creates a new stack or buffer, for your use. The buffer's number is returned in the 
variable RC. It is recommended that you delete the stacks you create, with DROPBUF. When you delete a stack 
with DROPBUF, any data left in it is no longer available. 

Examples: 


/* try this on your system */ 
/* MAKEBUF/DROPBUF allows you to create a stack, 


use it, then delete contents of stack * / 
"MAKEBUF" /* create new stack */ 
BUFNO = RC /* save stack's number */ 
PUSH "CART" /* put something into new stack */ 
SAY QUEUED () /* gives a l * / 
"DROPBUF" BUFNO /* delete stack, and word CART */ 
SAY QUEUED () /* gives a 0 */ 
SAY "ENTER YOUR NAME " /* talk to terminal */ 
PULL NAME /* gets from terminal */ 
SAY "THANK YOU, " NAME /* displays "MOE" (perhaps) */ 
SAY QUEUED () /* gives a 0 */ 
SAY "ENTER VEHICLE " 
PULL VEHICLE /* type in TAXI at terminal */ 
SAY "VEHICLE WAS " VEHICLE /* displays TAXI * / 
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/* try this on your system */ 
/* MAKEBUF does not isolate previous stack */ 


PUSH "CART" /* put something into new stack */ 
SAY QUEUED () /* gives a 1 */ 

"MAKEBUF" /* create new stack */ 

BUFNO = RC /* save stack's number */ 

SAY QUEUED () /* gives al */ 

SAY "ENTER YOUR NAME " /* talk to terminal */ 

PULL NAME /* gets from stack */ 

SAY QUEUED () /* Gives a 0 * / 

SAY "THANK YOU, " NAME /* displays CART * / 

"DROPBUF" BUFNO /* delete stack */ 

SAY QUEUED () /* gives a 0 */ 

SAY "ENTER VEHICLE * 

PULL VEHICLE /* type in TAXI at terminal * / 


SAY "VEHICLE WAS " VEHICLE /* displays TAXI */ 


MAX Function 


SAY MAX(numberl, number2, number20) Returns the highest of numbers I through 20. 
Example: 


SAY MAX(5,4,3,2) /* 5 */ 


MIN Function 


SAY MIN(number1, number2, number20) Returns the lowest of numbers | through 20. 
Example: 


SAY MIN(5,4,3,2) /* 2 */ 


MSG Function (TSO Only) 
SAY MSG() Returns the current setting of MSG, whether or not TSO command messages are 
displayed. Returns either ON (the default) or OFF. 
Example: 


SAY MSG() /* ON */ 


MESSAGE SETTING = MSG("ON" or "OFF") Returns the current setting of MSG: ON if TSO 
command messages are displayed and OFF if not. A value in the parentheses changes the setting to that value. 
A setting of "OFF" hides error messages from TSO commands, as when deleting a file that doesn’t exist. 


Example: 
MESSAGE SETTING = MSG("OFF") /* value was on. turn it off */ 
SAY MSG() /* OFF now 1t's oft */ 


SAY MESSAGE SETTING /* ON but it was on */ 
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NEWSTACK TSO Command (TSO Only) 


"NEWSTACK" 


This TSO command creates a new stack for immediate use within your REXX program. 


Anything that may have been in the old stack is unavailable. It can be neither read, nor changed. 

Keep track of how many new stacks you create and be sure to execute the DELSTACK command once for each 
new stack to eliminate them. Please see the QSTACK instruction for information on how to facilitate this. When 
you do a DELSTACK, the old stack is again available for use. 


Examples: 


/* try this on your system */ 
/* NEWSTACK isolates previous stack 
DELSTACK allows you to go back to previous stack */ 


PUSH. "CART® 

SAY QUEUED () 
"NEWSTACK" 

SAY QUEUED () 

SAY "ENTER YOUR NAME " 
PULL NAME 

SAY QUEUED () 
SAY "THANK YOU, 
"DELSTACK" 

SAY QUEUED () 
SAY "ENTER VEHICLE " 
PULL VEHICLE 


" NAME 


/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 


/* 


SAY "VEHICLE WAS " VEHICLE /* 


/* try this 
/* NEWSTACK 
DELSTACK 
"NEWSTACK" 
PUSH "CART" 
SAY QUEUED () 
"DELSTACK" 
SAY QUEUED () 
SAY "ENTER YOUR NAME " 
PULL NAME 
SAY QUEUED () 
SAY "THANK YOU, 
SAY QUEUED () 
SAY "ENTER VEHICLE " 
PULL VEHICLE 
SAY "VEHICLE WAS 


" NAME 


M. VRE Clase 


on your system */ 
isolates previous stack 
allows you to go back to previous stack */ 


/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 


/* 
/* 


put something into new stack */ 
gives al */ 
create new stack, 
gives a 0 */ 
talk to terminal */ 

gets from terminal */ 
gives a 0 */ 

displays "MOE" (perhaps) */ 
goes back to old stack */ 
gives al */ 


isolate old */ 


gets from stack */ 
displays CART */ 


create new stack, isolate old */ 
put something into new stack */ 
gives a 1 */ 

goes back to old stack */ 

gives a 0 */ 

talk to terminal */ 

gets from terminal */ 

gives a 0 */ 
displays "MOE" 
gives a 1 */ 


(perhaps) */ 


type in TAXI at terminal */ 
displays TAXI */ 
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NOP Instruction 
NOP Null instruction that does nothing. Used in an IF THEN ELSE sequence when no action is 
desired in an outcome. 
Example: 


IF A = B THEN NOP 
BLSE SAY "SORRY A IS NOT EQUAL TO B" 


NUMERIC Instruction 


NUMERIC option Sets the way numbers are handled in arithmetic operations and comparisons. 
Options: (explained below) 


DIGITS 
FORM 
PULL 


NUMERIC DIGITS number Sets the precision of arithmetic operations. Causes REXX to use 

number digits in arithmetic operations (but not in built-in functions.) The system default is 9. Use this instruction if 

you need more or less. You may use from 1 to (perhaps) 20000. There is a high overhead with large precision. 
Rounding is performed when an arithmetic operation produces more digits than number. 


NUMERIC FORM SCIENTIFIC or ENGINEERING Sets the way large numbers are shown in 
exponential notation. 
Examples: 


NUMERIC FORM SCIENTIFIC (the default) 
SAY 1.0001 * 1LOQ000000000 /* 1.00010000EK+11 */ 


NUMERIC FORM ENGINEERING 
SAY 1.0001 * 100000000000 /* 100.010000E+9 */ 


NUMERIC FUZZ number Controls the number of low order digits ignored in numeric comparisons. 
Allows approximations instead of strict equality. 
Example: 


NUMERIC FUZZ 1 

TF 987654321 = 987654322 
THEN SAY "SURPRISE" 

BELSE SAY "THIS WON'T HAPPEN" 
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OPTIONS 
OPTIONS choice 
choice may be: 
ETMODE literal strings may contain double byte characters, 
which are checked for validity 
NOETMODE . (the default) literal strings may contain double byte characters 
which are not checked for validity 
EXMODE double byte characters in literal strings are to be handled on a 
logical character basis so that DBCS data integrity is maintained 
NOEXMODE (the default) double byte characters in literal strings are to be handled on a 
byte basis so that the integrity of DBCS data is not guaranteed 
OTHERWISE keyword of the SELECT Instruction Introduces the default alternative in the SELECT 


structure, the path that is taken if no other alternative is true. OTHERWISE is not required after a SELECT. An END is 
required at the very end of the SELECT structure, whether or not there is an OTHERWISE. 


Examples: 


SELECT 
WHEN DAY = 
WHEN DAY = 
WHEN DAY = 
WHEN DAY = 
WHEN DAY = 
WHEN DAY = 
WHEN DAY = 

OTHERWISE 


SIA UM PWD PE 


THEN SAY "MONDAY" 
THEN SAY "TUESDAY" 
THEN SAY "WEDNESDAY" 
THEN SAY "THURSDAY" 
THEN SAY "FRIDAY" 
THEN SAY "SATURDAY" 
THEN SAY "SUNDAY" 


DO /* recommended for OTHERWISE */ 
SAY "ARE YOU ON MARS?" 
END /* recommended for OTHERWISE */ 
END /* required for the SELECT */ 
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OUTTRAP Function (TSO Only) 


CALL OUTTRAP "stem.", how many lines Turns on capturing of the display output of TSO commands, 
such as "LISTCAT," "LISTDS," error messages as from "DELETE DOESNT.EXIST," SAY in another EXEC, or a 
WRITE in a CLIST. Each line of output is captured in a different element of the array created from stem. A 
maximum of how many lines will be captured, with "*" meaning "capture all lines." 

Returns: 


stem.0 contains the number of lines produced 
stem.1 contains the first line 
stem.2 contains the second line, etc. 


Example: 


Ab OUTIRAP “LINE. ™@, "=" 

"LISTDS NO.SUCH.DATASET" 

SAY LINE.1 /* DATASET NO.SUCH.DATASET NOT IN CATALOG */ 
SAY LINE.O /* 1 */ 


CALL OUTTRAP "OFF" Turns off the trapping of command output so the commands will resume 
displaying their output at the terminal. 


CALL OUTTRAP "LINE.", "0" Discards the displayed output of commands such as "LISTCAT," 
"LISTDS," error messages as from "DELETE DOESNT.EXIST," SAY in another EXEC, or a WRITE in a CLIST. 
The output is not displayed at the terminal and is not captured. 


OVERLAY Function 


New _ string = OVERLAY (string1, string2, position) Replaces characters in string2 with characters in string, 
starting in character position of string2. 
Example: 


SAY OVERLAY ('D', 'ABCXEF',4) /* ABCDEF */ 


PARSE Instruction 


PARSE [UPPER] origin template Performs character string manipulation according to various rules that 
may be specified in the instruction. Data is taken from origin and processed by template, with the final result being 
that all the variables in the template are changed or set in some way. If UPPER is specified, all letters are 
uppercased; otherwise, they are left in the case they were in. 
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Origins: 
ARG , the command line 


EXTERNAL (TSO and CMS Only) the terminal without passing through the Data Queue 


PULL the stack or Data Queue 

LINEIN (OS/2 Only) the terminal or monitor without passing through the stack 
SOURCE internal system settings about the environment and the program 
VALUE a literal, function, or possibly a variable 

VAR a variable 

VERSION internal system information about the version of REXX you are using 
Templates: 

Just variables Data is distributed into the variables, delimited by spaces. 

Example: 


PARSE UPPER ARG VARI VAR2 VAR3 
SAY VARI 
SAY VAR2 
SAY VAR3 


/* the following is entered at the command line */ 
JOHN RINGO PAUL 


Results: 
JOHN 
RINGO 
PAUL 
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Literal string and variables Data is first split at the position of the literal string and then examined in two parts: 
the part on the left of the literal string, then the part on the right of the literal string. Finally it is distributed into the 
variables, delimited by spaces. 


Example: 


PARSE UPPER ARG VARI VAR2 "!" VAR3 
SAY VARL 
SAY VAR2 
SAY VAR3 


/* the following is entered at the command line */ 
John said "Yo! Where are you going?" 


Results: 


JOHN 
SAID "YO WHERE ARE YOU GOING?" 


Column delimiters and variables Data is first split at the columns specified. Note that for each variable, the columns that 
are placed into it may be determined by examining the numbers on either side of it. The number on the left is its starting 
column, the number on the right, minus 1, is its ending column. 

Examples: 


PARSE UPPER ARG 1 VARI 4 VAR2 8 VAR3 11 
SAY VARI1 
SAY VAR2 
SAY VAR3 


/* the following is entered at the command line */ 
ABCDEFGHIJKLMNOPQRSTUVWXYZ 


Results: 
ABC 
DEFG 
HIJ 


PARSE UPPER ARG 1 VARI 4 6 VAR2 8 5 VAR3 11 
SAY VARI 
SAY VAR2 
SAY VAR3 


/* the following is entered at the command line */ 
ABCDEFGHIJKLMNOPQRSTUVWXYZ 


Results: 
ABC 
FG 
EFGHIJK 
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PRECEDENCE OF OPERATORS . 
Prefix operators: +- notsymbol \ 
Raise to a power: ** 
Multiplication and division: * / % // 
Addition and subtraction: + - 


Concatenation: the blank space or spaces, the concatenation operator ||, abuttal, or placing two items next to 
each other with no intervening spaces. 


Comparison operators: = == >< >= <= <> and the others (see under comparison operators) 
Logical and: & 
Logical or: | && 


A term bracketed by parentheses: the items inside of parentheses are evaluated before the term. 


Left to right 
POS Function 
SAY POS(string1, string2, start pos) Returns the position of string/ in string2. Returns 0 if string/ is not 
in string2. Begins its search at start pos. If start pos is absent, the search begins at the first character. 
Example: 
SAY POS ('DEF', 'ABCDEFGHIJKLMNOP'! , 1) /* 4 */ 
PROCEDURE Instruction 
subroutine: PROCEDURE Used in an internal function/subroutine named subroutine to protect the 


variables of the main part of the program from any possible change, and even from being examined, by the 
function/subroutine. Makes all variables in the function/subroutine local. 
Example: 


SUBR1: PROCEDURE 


-PROFILE.ERX (OS/2 Only) OS/2 Enhanced editor macro/profile that you can copy and use. 


/* REXX enhanced editor profile 
place in the directory C:\OS2\APPS\ with the name PROFILE.ERX 
turns off the automatic supplying of End for DO, ELSE for IF, étc 
also switches to constant spacing type face 
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after storing it in the proper directory, go into the enhanced 
editor and open click on Command, then type in PROFILE ON, press 
ENTER, click on Options, click on Save Options 
=f 
"RXPAND OFF" 
"MONOFONT" 


PROMPT Function (TSO Only) 


SAY PROMPT() Returns the current setting of PROMPT, whether or not TSO commands can prompt. Returns ON 


or OFF (the default 

Example: 

SAY PROMPT () /* OFF */ 

PROMPT SETTING = PROMPT("ON" or "OFF") Returns the current setting of PROMPT, 


ON if TSO commands can prompt, OFF if they can not. It stores it in a variable, and changes the setting to the value 
in the parentheses. 


Example: 
SAY PROMPT () /* OFF 16 2s Off now */ 
PROMPT SETTING = PROMPT ("ON") /* it was off, turn it on*/ 
SAY PROMPT () /* ON it is on now */ 
SAY PROMPT SETTING /* OFF but it was off */ 
PULL Instruction 


Short form of PARSE UPPER PULL. Takes a line from the stack or, if it is empty, from the terminal or keyboard. See 
PARSE UPPER PULL. 


PUSH Instruction 


PUSH string or variable Puts a line consisting of variable, or string into the stack. Data is put into the 
stack LIFO. 


Example: 


PUSH "HAS FLEAS" 
PUSH "MY DOG" 
PULL LINE 

SAY LINE 

PULL LINE 

SAY LINE 
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QBUF TSO and CMS Command (TSO and CMS Only) 


"QBUF" his environment command tells you how many buffers were created by MAKEBUF. The 
number of buffers is returned in the special variable RC. 
Examples: 


| QBUF W 

SAY RC /* gives a 0 */ 
"MAKEBUF" 

! QBUF WT 

SAY RC /* gives al */ 
"DROPBUF" 

QBUF i 

SAY RC /* gives a 0 */ 


QELEM TSO and CMS Command (TSO and CMS Only) 


"QELEM" This environment command tells you how many elements or lines are available in the 
buffer created by MAKEBUF. The number of elements is returned in the special variable RC. 


Examples: 


"MAKEBUF" 

PUSH "CART" 

PUSH "CAR 

"OERLEM" 

SAY RC ye 2 ey 
"DROPBUF™" 

"ORLEM" 

SAY RC /* 0 */ 


QSTACK TSO Command (TSO Only) This TSO command tells you how many stacks you have 
created by using "NEWSTACK." It places the number of stacks you have created by using "NEWSTACK" (plus one) into 
the special variable RC. You may use RC (minus one) to determine how many times to execute "DELSTACK." 

Example: 


"QSTACK" 

HOW MANY = RC - 1 

DO HOW MANY 
"DELSTACK" 

END 


QUEUE Instruction 


QUEUE string or variable Puts a line consisting of variable or string into the stack (internal data queue). Data is 
put into the stack FIFO. 


Examples: 


QUEUE "MY DOG" 
QUEVE "HAS FLEAS" 
PULL LINE 

SAY LINE 

PULL LINE 

SAY LINE 


QUEUED Function 
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SAY QUEUED( Returns the number of lines in the stack (internal data queue). 


Example: 


SAY QUEUED () f* 0 */ 


PUSH ‘CART 


SAY QUEUED () j* 1 */ 


RANDOM 


SAY RANDOM(min, max) 


Example: 


SAY 


RANDOM (1,100) /* 55 */ 


SAY RANDOM(min, max, seed) 


Examples: 


SAY 
SAY 
SAY 
SAY 
SAY 


RANDOM (1,100,12345) 
RANDOM (1,100,12345) 
RANDOM (1,100) 
RANDOM (1,100) 
RANDOM (1,100) 


Returns a random number between min and max. 


Returns a random number between min and max. Specifying the 
same seed produces the same series each time on all systems that REXX is found on. 


/* 
/* 
/* 
/* 
/* 


5 */ 
5. #/ 
7a. 
2 Fe 
by */ 
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RC Reserved variable Contains the return code that was set by an environment command. If the command 
functions properly, this normally contains a 0. There are exceptions, however: see MAKEBUF, QELEM, QBUF. 
It also contains the number assigned to REXX syntax errors. 
It is not set by REXX verbs or instructions such as IF, CALL, etc. 


Examples: 


SIGNAL ON SYNTAX 

SAY wAW ae mR 

EXIT 

SYNTAX : 

SAY RC " IS THE REXX ERROR NUMBER" 

SAY ERRORTEXT (RC) " IS THE TEXT OF THE ERROR MESSAGE " 
BXLT 


"MAKEBUF" 
SAY RC /* returns a 1 or greater */ 


"DELETE ABC.DATA" /* on TSO */ 
SAY RC /* a 0, if the delete worked */ 


"RRASE ABC.DAT" /* on OS/2 */ 
SAY RC /* a 0, if the erase worked */ 


"ERASE ABC DATA" /* on CMS */ 
SAY RC /* a 0, if the erase worked */ 


RESULT Reserved Variable Contains the result or answer passed back by a function or subroutine that was 
invoked with a REXX CALL. It will contain the string or variable that was found on the function's or subroutine's RETURN 
statement. The function or subroutine may be built in, user-written internal, or user-written external. 


Examples: 

SAY RESULT /* gives RESULT, since RESULT not yet set */ 
CALL LENGTH "ABCD" 

SAY RESULT /* 4 */ 

EXIT 


CALL ADDEMUP 1, 2 

SAY RESULT /* 3 */ 
BXLIT 

ADDEMUP : 

ARG NUMBERI1, NUMBER2 
RETURN NUMBERI + NUMBER2 
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RETURN Instruction 


RETURN string or variable In a function/subroutine, sends control back to the instruction after the 
one that invoked the function/subroutine. Passes back string or variable to the caller, except in an error trap, where 
nothing is passed back. 

Example: 


SUBR: 

ARG NUM1,NUM2 

TOTAL = NUM1 + NUM2 
RETURN TOTAL 


If no function or subroutine is active, that is that control has reached the RETURN through a SIGNAL or by 
dropping through, RETURN terminates the program like EXIT. Any character format string contained on the 
RETURN instruction will cause an data conversion or datatype error, because only numerics (or nothing)may be 
specified when ending the program. 
Example that will produce an error: 


Signal Date Time /* go to the subroutine */ 
Exit /* never get here */ 
Date Time: /* the subroutine */ 
Return Date() Time() 
/* return acts like an EXIT. 
EXIT is not allowed to pass character strings 
to the operating system. 
The operating system displays an error message.*/ 


REVERSE Function 


SAY REVERSE(string) Reverses the characters of the string. 
Example: 


SAY REVERSE ('GO') /* OG */ 


RIGHT Function 


SAY RIGHT (string, length) Extracts Jength characters from string starting at the right. 
Example: 


SAY RIGHT ('ABCDEF'!,3) /* DEF */ 


SAY RIGHT(string, length, pad) Extracts /ength characters from string starting at the nght. Uses pad 
as a fill character if /Jength is more than the number of characters in string. 
Examples: 


SAY RIGHT ('ABCDEF'!,7,!'!') /* !ABCDEF */ 
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RT TSO and CMS Command (TSO and CMS Only) Resumes display to the terminal that was stopped 
by the command HT. 


¢ On TSO, it may be executed after an attention interrupt obtained by pressing the PA1 key or the ATTN key. 


¢ On CMS, it may be executed as a CMS immediate command when the screen is displaying MORE .. . in the 
lower right. 


RXFUNCADD Function (OS/2 only) You are most likely to use this function for one purpose only: 
registering certain other functions with REXX. (This is conceptually like loading them into memory where they are available 
for use.) Those functions are not useable until you do this. 

What you have to do is very simple: put program statements similar to those shown just below in each program that uses 
one of the REXX functions that require pre-registering. 


/* Showload.CMD */ 
/* shows how to register a function with OS/2 
so that you can use it in your program 


change "syscls" shown below to the function name 
that you are actualloy using 


ay 
Function to load = "syscls" 
Call 2xfunceadd Pumcticn to. load, 'rexxutil', function to load 


/* now you can use the function in this program*/ 
CALL SYSCLS 
Say "SYSCLS has been loaded" 


Here is a list of the functions that won't work unless you register them with the program statements shown above. 


RXMESSAGEBOX 
SYSCLS 
SYSCREATEOBJECT 
SYSCURPOS 
SYSCURSTATE 
SYSDEREGISTEROBJECTCLASS 
SYSDESTROYOBJECT 
SYSDRIVEINFO 
SYSDRIVEMAP 
SYSDROPFUNCS 
SYSFILEDELETE 
SYSFILETREE 
SYSFILESEARCH 
SYSGETEA 
SYSGETKEY 
SYSGETMESSAGE 
SYSINI (not covered here) 
SYSMKDIR 
SYSOS2VER 
SYSPUTEA 
SYSQUEUECLASSLIST 
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SYSREGISTEROBJECTCLASS 
SYSRMDIR 
SYSSEARCHPATH 
SYSSETICON 
SYSSETOBJECTDATA 

5 YSSLEEP 
SYSTEMPFILENAME 
SYSTEXTSCREENREAD 
SYSTEXTSCREENSIZE 
SYSWAITNAMEDPIPE 


RXMESSAGEBOX Function (OS/2 Only) 


CALL RXMESSAGEBOX ‘text’, ‘title’, ‘button’, ‘icon' 
SAY 'CODE FOR KEY PRESSED WAS' RESULT 


Displays a Presentation Manager message box where the message fext figures prominently with title at the top. A 
button is included in the box as well as an icon. Requires pre-registering, discussed under RXFUNCADD in this 
book. Can only be used under the Presentation Manager. This means you must execute your program by putting 
the word PMREX*X in front of it, as for example: PMREXX MYPROG. 


button may be: 


OK An OK button (the default) 

OKCANCEL An OK button and a CANCEL button 

CANCEL A CANCEL button 

ENTER An ENTER button 

ENTERCANCEL An ENTER button and a CANCEL button 

RETRYCANCEL A RETRY button and a CANCEL button 

ABORTRETRYCANCEL An ABORT button, a RETRY button and a CANCEL button. 
YESNO A YES button and a NO button. 


YESNOCANCEL A YES button, a NO button, and a CANCEL button. 


60 REXX Reference 


icon may be one of the following types 


NONE No icon is displayed. 
HAND 

QUESTION 

EXCLAMATION 

ASTERISK 

INFORMATION 

QUERY 

WARNING 

ERROR 


RESULT contains a number corresponding to the key that was pressed. 
OK 

CANCEL 

ABORT 

RETRY 

IGNORE 

YES 

NO 

ENTER 


CON NN BW NY 


Example: 


CALL RXMESSAGEBOX 'OK to continue?!', 'Sample message box',, 
'YHSNO', ‘QUESTION * 

JP KBSULT = 6 | 

THEN SAY 'THANK YOU FOR PRESSING YES' 


RXQUEUE Function (OS/2 Only) 


CALL RXQUEUE ‘action’, queue name’ 
SAY RESULT 


Creates and deletes data queues, makes them available for use, and queries their names. 


action 
GET gives the name of the queue currently in use 
SET sets a queue (makes it the current one) 
DELETE deletes the queue (you must explicitely delete it) 
CREATE creates a queue (if it already exists, one is created with a different name that is available in 
RESULT) 
CALL RXQUEUE 'GET' 
SAY RESULT 
The name of the current queue is given in RESULT. SESSION is the name of the default queue created 
automatically by REXX. 
Example: 


CALL RXQUEUE 'GRT' 
SAY THE CURRENT QUEUE IS' RESULT 
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CALL RXQUEUE 'CREATE'’, 'queue name' 
SAY RESULT 


Creates a queue named queue name. If queue name already exists one is created with a name chosen by REXX 
and available in RESULT. In order to use the queue you have created you need to do a set (see below). 
Example: 


CALL RXQUEUE CREATE', 'MYQUEUE' 
SAY 'CREATED QUEUVUE' RESULT 


CALL RXQUEUE 'SET’', 'queue name' 
SAY RESULT 


Makes the queue named queue name the current one. The name of the old queue is available in RESULT. You 
must have already created the queue in order to use it. 
Example: 


CALL RXQUEUE 'SET!, 'MYQUEUE'! 
SAY 'THE PREVIOUS QUEUE WAS! RESULT 


CALL RXQUEUE 'DELETE'’, 'queue name' 
SAY RESULT 


Deletes the queue named queue name. If you don't delete it, it will continue to exist until you do, outlasting 
sessions, windows, and bootings. If the delete is successful, RESULT will contain a zero (0). 
Example: 


CALL RXQUEUE 'DELETE!', 'MYQUEUE '! 
IF RESULT = Q 
THEN SAY 'DELETED THE QUEUE ' 


SAY Instruction 


SAY string or variable Displays a line on the terminal or monitor, consisting of string or variable. 
Examples: 


SAY "AAAAAHHH" 
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SELECT Instruction REXX's implementation of the CASE structure. Allows selection of just one of several 
possible alternatives. 
An END 1s required at the very end of the structure, whether an OTHERWISE is used or not. 


Example: 

SELECT 
WHEN DAY = 1 THEN SAY "MONDAY" 
WHEN DAY = 2 THEN SAY "TUESDAY" 
WHEN DAY = 3 THEN SAY "WEDNESDAY" 
WHEN DAY = 4 THEN SAY "THURSDAY" 
WHEN DAY = 5 THEN SAY "FRIDAY" 
WHEN DAY = 6 THEN SAY "SATURDAY" 


WHEN DAY = 7 THEN SAY "SUNDAY" 
END /* required for SELECT */ 


SELECT 
WHEN DAY = 1 THEN SAY "MONDAY" 
WHEN DAY = 2 THEN SAY "TUESDAY" 
WHEN DAY = 3 THEN SAY "WEDNESDAY" 
WHEN DAY = 4 THEN SAY "THURSDAY" 
WHEN DAY = 5 THEN SAY "FRIDAY" 
WHEN DAY = 6 THEN SAY "SATURDAY" 
WHEN DAY = 7 THEN SAY "SUNDAY" 

OTHERWISE 


DO /* recommended for OTHERWISE */ 
SAY "ARE YOU ON MARS?" 
SAY "OR IS 1.7 VENUS?" 
END /* recommended for OTHERWISE */ 
END /* required for SELECT */ 


SETLOCAL Function (OS/2 Only) 


CALL SETLOCAL 
SAY RESULT 


Saves the drive directory and environment variables that are in effect. A 1 is returned in RESULT if the function | 
was successful; a 0 is returned if it was not successful. 
Example: 


CALL SETLOCAL 
SAY RESULT 


SETLOCAL Instruction (OS/2 Only) Saves the current working drive and directory. The ENDLOCAL 
command can restore them. 
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SIGL Reserved Variable Contains the line number of the REXX program statement that caused a 
transfer of control into a subroutine or condition trap. This is very useful in debugging a program. 
Example: 


SIGNAL ON SYNTAX 


SAY W ma W — W B iA 
EXIT 
SYNTAA : 
SAY SIGL " IS THE LINE NUMBER WITH THE ERROR" 
EXIT 
SIGN Function 
SAY SIGN(xumber) Returns 1 if number is positive, 0 if it is zero and -1 if it is negative. 
Example: 
SAY SIGN(-9) /* -1 */ 
SIGNAL Instruction 
SIGNAL ON or OFF label Turns on or off a condition trap named by /abel. The condition trap 


can intercept an exceptional condition whenever it occurs after that. The condition trap is physically located at the 
end of the program. 


Labels: 

SYNTAX REXX syntax error 

ERROR command to environment not correct 
FAILURE command to environment doesn't exist 
NOVALUE uninitialized variable 

HALT attention interrupt 


/* TSO: press PA1 or ATTN 
CMS: type HI when screen displays More ... in lower right 
OS/2: press CTRL and C or CTRL and Break”*/ 
NOTREADY — (OS/2 Only). Error in input/output 
Examples: 


SIGNAL ON SYNTAX 

/*intervening instructions */ 

BALL 

SYNTAX s 

SAY "ENTERED SYNTAX TRAP" 

SAY "SYNTAX ERROR IS " ERRORTEXT (RC) 

SAY "LINE NUMBER IN ERROR IS " SIGL 

SAY "LINE IN ERROR IS " SOURCELINE (SIGL) 
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SELECT /* OS/2: obtain the complete error msg for REXX errors*/ 
/* no space between Rex and "RC */ 
WHEN Address() = "CMD" then" Call Help Rex"RC 
WHEN Address() = "PMREXX" then" Call Help Rex"RC 

END 

ce, i & 


SIGNAL ON ERROR 

/*intervening instructions */ 

BX LT 

ERROR: 

SAY "ENTERED ERROR TRAP" 

SAY "RETURN CODE FROM ENVIRONMENT IS " RC 

SAY "LINE NUMBER IN ERROR IS " SIGL 

SAY "LINE IN ERROR IS " SOURCELINE (SIGL) 

SELECT /* OS/2: obtain the complete error msg for Command errors*/ 
/* no space between Sys and "RC */ 
WHEN Address() = "CMD" then" Call Help Sys"RC 
WHEN Address() = "PMREXX" then" Call Help Sys"RC 

END 

1p a ah 


SIGNAL ON FAILURE 

/*intervening instructions */ 

EXIT 

FAILURE: 

SAY "ENTERED FAILURE TRAP" 

SAY "RETURN CODE FROM ENVIRONMENT IS " RC 

SAY "LINE NUMBER IN ERROR IS " SIGL 

SAY "LINE IN ERROR IS " SOURCELINE (SIGL) 

SELECT /* OS/2: obtain the complete error msg for Command errors*/ 
/* no space between Sys and "RC */ 
WHEN Address() = "CMD" then "Call Help Sys"RC 
WHEN Address() = "PMREXX" then "Call Help Sys"RC 

END 

BXLT 


SIGNAL ON NOVALUE 

/*intervening instructions */ 

EXIT 

NOVALUE : 

SAY "ENTERED NOVALUE TRAP" 

SAY "STRING IN ERROR IS " CONDITION ("D") 
SAY "LINE NUMBER IN ERROR IS " SIGL 

SAY "LINE IN ERROR IS " SOURCELINE (SIGL) 
EXIT 
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SIGNAL ON HALT 

/*intervening instructions */ 
EXIT 

HALT : 

SAY "ENTERED HALT TRAP" 

SAY "ABOUT TO TERMINATE PROGRAM" 
SAY "PRESS ENTER TO PROCEED" 
PULL 

BXIT 


SIGNAL ON NOTREADY 

/*intervening instructions */ 

EXILT 

NOTREADY : 

SAY "ENTERED NOTREADY TRAP" 

SAY "LINE NUMBER IN ERROR IS " SIGL 

SAY "LINE IN ERROR IS " SOURCELINE (SIGL) 
BALT 


SIGNAL label SIGNAL followed by Jabel is an unconditional "GO TO." This should be used with 
caution because its use will interfere with REXX's control structures such as DO... END. 


SOURCELINE Function 


SAY SOURCELINE(xumber) Returns original program statement with line number number. 
Example: 


/*REXX PROGRAM TO SHOW SOURCELINE*/ 


SAY SOURCELINE (1) /* /*REXX PROGRAM TO SHOW SOURCELINE*/ */ 
SAY SOURCELINE() Returns number of lines in the program. 
Examples: 


/*REXX PROGRAM TO SHOW SOURCELINE* / 
SAY SOURCELINE() /* 2 */ 


DO I = 1 TO SOURCELINE() /* displays entire program */ 
SAY SOURCELINE (T) 

END 

/* or do it this way in interactive debug */ 

DO I = 1 TO SOURCELINE({) ; SAY SOURCELINE (1); END 
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SPACE Function 
SAY SPACE(string, how many blanks) Puts how many blanks blanks between words in string. If 
how many blanks is 0, strips blanks in string. 


Examples: 


SAY SPACE('THE FINAL FRONTIER! ,3) /* THE FINAL FRONTIER */ 


SAY SPACE('DONT SPACE OUT ON ME',0) /* DONTSPACEOUTONME */ 


SAY SPACE(string, how many pad char, pad) Moves apart the words in string and puts how many 
pad char copies of pad between the words. If how many pad char 1s 0, strips blanks in string. 
Examples: 


SAY SPACE('THE FINAL FRONTIER',3,!') /* THE! !!FINAL!!!FRONTIER */ 
SAY SPACE('DONT SPACE OUT ON ME',0,!'!') /* DONTSPACEOUTONME */ 


STORAGE Function (TSO and CMS Only) 


SAY STORAGE (address, length) Retrieves the actual contents of memory (storage) that is at address 
address. 


Example: 


SAY STORAGE (000000, 8) we gerergee * 


CALL STORAGE address, length, new data Stores new data at the memory address address, 
overlaying the previous contents of memory for a length of Jength. Use at your own risk. 


STREAM Function (OS/2 and CMS Only) 


CALL STREAM ‘file name','C', 'command' 
SAY RESULT 


Performs the action indicated by command on file name. RESULT indicates the success or failure. If the 
command succeeded, RESULT will contain the name of the command. If the command failed, RESULT will 
contain an error message. 
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Commands: 

QUERY EXISTS Returns file name if OK; otherwise null. 

QUERY SIZE Returns the size in bytes. 

QUERY DATETIME _ Returns date and time stamps. 

OPEN READ Returns READY: if OK. Note the colon. 

OPEN WRITE Returns READY: if OK. Note the colon. 

CLOSE Returns READY: if OK. Note the colon. 

SEEK offset Sets the READ or WRITE position offset bytes from the beginning of the file. 


you may include an operator, example: SEEK = 123 
set offset this many bytes from the beginning of the file 
set offset this many bytes from the end of the file 
set offset this many bytes forward from the current position 
set offset this many bytes backward from the current position 


+ AH 


Another way to close a file: Call lineout file name 
Another way to open a file: (if already open, a NOP) Call linein file name ,,0 


CALL STREAM 'C:MYFILE.DAT"', 'C', 'CLOSE' Closes the file. 


IF STREAM(‘TMP.DAT','C',"QUERY EXISTS’) = '"" 
THEN SAY 'THE FILE DOES NOT EXIST' 
ELSE SAY 'THE FILE EXISTS' 


An excellent way to determine if a file exists or not. 


CALL STREAM ‘file name’, 'S' 
SAY RESULT 


Finds out the status of file name. RESULT contains the current status. 
Values of RESULT: 


ERROR 

NOTREADY 

READY (ready for reading/writing; READY is without a colon) 
UNKNOWN (indicates closed status or no such file) 


CALL STREAM ‘file name','S' 
SAY RESULT 


Returns the State of the file. RESULT contains one of the following: 
Values of RESULT: 


ERROR you are trying to do something illegal 
NOTREADY something is preventing you from reading or writing the file, 
for example it doesn't exist or you have already reached the end of the file. 
READY the file exists and is ready for reading or writing. 
Unknown this may mean that the file hasn't been opened yet 
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STRIP Function 
NEW_STRING = STRIP(string, option) Strips blanks from string based on option: 
Options: 
B — remove both leading and trailing blanks (default) 


T — remove trailing blanks 
L — remove leading blanks 


Example: 


NEW STRING = STRIP (' MUCH BLANK SPACE Mi 
SAY NEW STRING /* MUCH BLANK SPACE */ 


NEW_STRING = STRIP(string, option, character) Strips character from string based on option: 


Options: 

B — remove both leading and trailing character (default) 
T — remove trailing character 

L — remove leading character 


Example: 


NEW STRING = STRIP('CAFE AU LAIT!!11','T!',1'!') 
SAY NEW STRING /* CAFE AU LAIT */ 


SUBCOM TSO and CMS Command (TSO and CMS Only) This TSO/CMS command asks TSO or 


CMS if an environment is available for use. The answer is returned in the special variable RC, which contains a 0 for yes, a 1 
for no. 
Examples: 


PSUBCOMY TSO" 
SAY RC f* 0 */ 


FSUBCOM" “JSPEAZRC" 
SAY RC /* 0 (under TSO, only if you are in ISPF) */ 


"SUBCOM™” “XEDIUT" 
SAY RC /* 0 (under CMS, only if you are in XEDIT) */ 


"SUBCOM" "MARS" 
SAY RC /* 1 */ 
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SUBSTR Function 
NEW_STRING = SUBSTR(string, start position, length) Returns a portion of string beginning at 
start position for a length of /ength. Blanks are used if filler characters are needed. 
Example: 


SAY SUBSTR('PACE',2,3) /* ACE */ 


NEW_STRING = SUBSTR(string, start position, length,pad) Returns a portion of string beginning at 
start position for a length of length. Pad is used if filler characters are needed. 
Example: 


SAY SUBSTR('PACE',2,5,'1' } #* ACE!) */ 


SUBWORD Function 
NEW_STRING = SUBWORD(string, starting word, how many words) Returns a portion of string 
beginning at starting word, containing how many words words. 


Examples: 


NEW STRING = SUBWORD('ET PHONE HOME COLLECT' ,2, 2) 
SAY NEW STRING /* PHONE HOME */ 


SYMBOL Function 
SAY SYMBOL(xame) Tells if name is a variable, literal, or if not a legal symbol. 
Returns: 
VAR ~~ <--- if name is an assigned variable 


LIT <--- if name is a literal 
BAD <--- if name is not a legal symbol 


Examples: 

SAY SYMBOL ('*-=:*') /* BAD */ 
TEAM = 'YANKEES' 

SAY SYMBOL('YANKEES') /* LIT */ 

SAY SYMBOL ('TEAM' ) /* VAR */ 


SYSCLS Function (OS/2 Only) 


CALL SYSCLS Clears the screen. Does not work properly under Presentation Manager. Requires pre- 
registering, discussed under RXFUNCADD in this book. 
Example: 


CALL SYSCLS 
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SYSCREATEOBJECT Function (OS/2 Only) 


CALL SYSCREATEOBJECT classname, title, location, icon 
SAY RESULT 


Creates a new instance of an object class. The name assigned is classname, title is assigned as the object's title, 
location is the name of the place to put the object in, or the path to the object's location, icon is the name of an icon 
file (extension ICO). RESULT will contain a 1 if the creation was successful, a 0 if it was not. Requires pre- 
registering, discussed under RXFUNCADD in this book. 


Example: 
CALL SYSCREATEOBJECT "<WPFolder>",, <- object class 
'THhLe 18 wy Folder’,, 2= title 
'eWP DESKTOPS" ,, <- location of new 
object 
lone eon . TCO" <- icon 


SYSCURPOS Function (OS/2 Only) 


CALL SYSCURPOS 
SAY RESULT 


Will not work under the Presentation Manager. Tells the current cursor position. The cursor position is returned 


in RESULT. It consists of two numbers, row and column. Requires pre-registering, discussed under 
RXFUNCADD in this book. 
Example: 


CALL SYSCURPOS 
PARSE VAR RESULT ROW COLUMN 
SAY 'CURSOR IS AT ROW' ROW 'COLUMN' COLUMN 


CALL SYSCURPOS row, column 
SAY RESULT 


Will not work under the Presentation Manager. Moves the cursor to row and column. Tells the current cursor 
position. The cursor position is returned in RESULT. It consists of two numbers, row and column. Requires pre- 
registering, discussed under RXFUNCADD in this book. 

Example: 


CALL SYSCURPOS &, LO 

SAY 'CURSOR WAS CURRENTLY AT! RESULT 

PARSE VAR RESULT ROW COLUMN 

SAY 'CURSOR IS AT ROW' ROW 'COLUMN' COLUMN 
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SYSCURSTATE Function (OS/2 Only) 


CALL SYSCURSTATE on or off Will not work under the Presentation Manager. Displays or hides the 
cursor depending on on or off. ON displays the cursor. OFF hides the cursor. Requires pre-registering, discussed 
under RXFUNCADD in this book. 

Example: 


CALL SYSCURSTATE OFF 


SYSDEREGISTEROBJECTCLASS Function (OS/2 Only) 


CALL SYSDEREGISTEROBJECTCLASS classname 
SAY RESULT 


Removes an object class definition. The opposite of SYSREGISTEROBJECTCLASS. If it was successful a 1 is 
placed in RESULT. If it was not, a 0 is placed in RESULT. Requires pre-registering, discussed under 
RXFUNCADD in this book. 


Example: 


CALL SYSDEREGISTEROBJECTCLASS 'OLDOBJECTCLASS '! 
IF RESULT = 1 
THEN SAY ‘SUCCESSFUL! 


SYSDESTROYOBJECT Function 


CALL SYSDESTROYOBJECT odbjectname 
SAY RESULT 


Destroys an existing Workplace Shell object. If it was successful a 1 is placed in RESULT. If it was not, a 0 is 
placed in RESULT. Requires pre-registering, discussed under RK FUNCADD in this book. 
Example: 


CALL SYSDESTROYOBJECT '!MYOBJECT'! 
IF RESULT = 1 
THEN SAY 'SUCCESSFUL' - 
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SYSDRIVEINFO Function (OS/2 Only) 


SAY SYSDRIVEINFO (drive) Gives information about the disk drive specified. Four words are 
returned: the disk drive letter, the number of bytes of free space, the total capacity of the drive, and the disk label. 
Requires pre-registering, discussed under RXKFUNCADD in this book. 

Example: 


SAY SYSDRIVEINFO('C:') 
/* may return C: 12345678 83687424 MYDRIVE */ 
Perse Value Sysdriveinco("C:") With Drive Free space, 
Capacity Disk label 


SYSDRIVEMAP Function (OS/2 Only) 


SAY SYSDRIVEMAP() Starting with the C: drive, gives the letters of the disk drives that are accessible 
or inuse. Requires pre-registering, discussed under RXKFUNCADD in this book. 

Example: 

SAY SYSDRIVEMAP () /* may return C: D: * / 

SAY SYSDRIVEMAP (drive) Starting with drive, gives the letters of the disk drives that are 
accessible or in use. Requires pre-registering, discussed under RK FUNCADD in this book. 

Example: 

SAY SYSDRIVEMAP ("D:") /* may return D: E: */ 

SAY SYSDRIVEMAP (drive,drive status) Starting with drive, gives the letters of the disk drives that 


are accessible or in use. Requires pre-registering, discussed under RXFUNCADD in this book. 


Drive status may be one of the following: 


USED the default 
all drives that are accessible, or in use 
FREE drives that are free or not in use 
LOCAL drives that are on your PC (workstation) 
REMOTE remote drives such as redirected LAN resources 


DETACHED drives that are detached LAN resources, for example a LAN drive that is assigned 
to your workstation but has been detached after a timeout 


Example: 
SAY SYSDRIVEMAP ("C:", "LOCAL" ) /*® may returm €: D: */ 


SYSDROPFUNCS Function (OS/2 Only) 


CALL SYSDROPFUNCS Drops all the special functions that require pre-registering, making them 
unavailable until once again pre-registered. Requires pre-registering, discussed under RXFUNCADD in this book. 
Example: 


CALL SYSDROPFUNCS 
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SYSFILEDELETE Function (OS/2 Only) 


CALL SYSFILEDELETE ‘file name' 
SAY RESULT 


Deletes the file specified with file name. Does not display an error message if the file doesn't exist. It does, 
however, return a code number in RESULT that tells you what happened. Requires pre-registering, discussed under 


RXFUNCADD in this book. 
Codes returned in RESULT: 
| successful 
2 file not found 
3 path not found 
5 access denied 
26 not a DOS disk 
a2 sharing violation 
36 sharing buffer exceeded 
87 invalid parameter 
206 file name exceeds range error 
Example: 


CALL SYSFILEDELETE 'TEMP.DAT' 
IF RESULT = 0 
THEN SAY ‘DELETE SUCCESSFUL' 


SYSFILETREE Function (OS/2 Only) 


CALL SYSFILETREE [file specification’, 'REXX variable stem' Finds all files that match a file 
specification. The file information is returned in REXX variables built upon REXX variable stem. If the stem 
specified is LINE., then information on the first file found is returned in LINE.1. The number of items returned 1s 
placed in the '0' element based on the stem, LINE.O in this case. Requires pre-registering, discussed under 
RXFUNCADD in this book. 

Example: 


CALL SYSPILETREE '*,CMD", "LINE,' 
SAY 'THE FILES THAT MATCH ARE: ' 
DO Il = 1 TO LINE.O 

SAY LINE.I 
END 


SYSFILESEARCH Function (OS/2 Only) 


CALL SYSFILESEARCH string’, ‘file', '"REXX variable stem', 'N' Finds all lines in file that contain 
string. The lines and their line numbers (‘N' requests line numbers) are returned in REXX variables built upon 
REXX variable stem. If the stem specified is LINE., then the first line found is returned in LINE.1. The number of 
items returned is placed in the '0' element based upon the stem, LINE.O in this case. Requires pre-registering, 
discussed under RXFUNCADD in this book. 

Example: 
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CALL SYSPILESEARCH 'TF', 'MYPROG.CMD',*LINE.','N’ 
SAY 'THE LINES THAT CONTAIN IF ARE: '! 
DO l= 1 TO LINE.90 
SAY LINE.I 
/* how to separate line numbers from the line contents*/ 
PARSE VAR LINE.I NUMBER CONTENTS 
SAY 'LINE NUMBER IS' NUMBER 
SAY 'CONTENTS ARE' CONTENTS 
END 


SYSGETEA Function (OS/2 Only) 


CALL SYSGETEA ‘file’, ‘extended attribute’, 'REXX variable’ 
IF RESULT = 0 THEN SAY REXX variable 


Gives details on the extended attribute of file in REXX variable. Note that REXX variable is in quotation marks or 
apostrophes. Requires pre-registering, discussed under RX FUNCADD in this book. 


extended attributes of the workplace shell: 
.CLASSINFO 
ICON 
LLONGNAME 
TYPE 
Example: 


File name = "C:\testing\sample\abcdef.exe" 


CALL SYSGETEA File name, '.type',' Filetype’ 
IF RESULT = 0 THEN SAY "The file type is " Filetype 


CALL SYSGETEA FIle name, '.longname', 'Longname' 
IF RESULT = 0 THEN SAY "The long file name is "Longname 


CALL SYSGETHA File name, '.1d6n','Icon name’ 
IF RESULT = 0 THEN SAY "The icon for this file is "Icon_name 


CALL SYSGETEA File name, '.classinfo', 'Class info' 
IF RESULT = 0 THEN SAY "The class of this file is "Class info 
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SYSGETKEY Function (OS/2 Only) 


CALL SYSGETKEY 'ECHO' or 'NOECHO' 
SAY RESULT 


Gets the next key pressed from the keyboard buffer. The key pressed is returned in RESULT. If the keyboard 
buffer is empty, it waits until a key is pressed. The ENTER key does not have to be pressed. Requires pre- 
registering, discussed under RXFUNCADD in this book. Does not work properly under the Presentation Manager. 


Example: 
CALL SYSGETKEY 'ECHO' 
SAY RESULT 'WAS KEY PRESSED' 


Example that will show you the numeric equivalents for each key that you press. Run this program and press each 
key on the keyboard and note what is displayed. Notice that some keys, such as DELETE, give you two numbers. 


/* REXX mykey.CMD */ 
Call Rxfuncadd "Sysgetkey", "rexxutil", "Sysgetkey" 
Do 100 
Say "please press a key" 
Call Sysgetkey "ECHO" 
Say "You pressed" result "key. numeric equiv. is " C2X(Result) 
End 


SYSGETMESSAGE Function (OS/2 Only) 


CALL SYSGETMESSAGE 'number' 
SAY RESULT 


Gets the text of the OS/2 message corresponding to number. Requires pre-registering, discussed under 
RXFUNCADD in this book. 
Example: 


CALL SYSGETMESSAGE '1' 
SAY RESULT 


SYSMKDIR Function (OS/2 Only) 


CALL SYSMKDIR 'directory' 
SAY RESULT 


Creates a directory named directory. No message is displayed in case of error. Returns a code number in 
RESULT that tells if it was successful. Requires pre-registering, discussed under RXKFUNCADD in this book. 
Example: 

CALL SYSMKDIR '!C:\REXXPRGS' 
SAY RESULT 
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Codes returned in RESULT: 


0 successful 

Z file not found 

3 path not found 

5 access denied 

26 not a DOS disk 

87 invalid parameter 

108 drive locked 

206 file name exceeds range error 


SYSOS2VER Function (OS/2 Only) 


SAY SYSOS2VERQ) Tells the current version of OS/2 you are running. Requires pre-registering, 
discussed under RXFUNCADD in this book. | 
Example: 


SAY SYSOS2VER () 


SYSPUTEA Function (OS/2 Only) 


CALL SYSPUTEA ‘file’, ‘extended attribute’, 'value' 
SAY RESULT 


Writes the value of extended attribute to file. RESULT contains a 0 if the action was successful, otherwise it 
contains an error code. Requires pre-registering, discussed under RXFUNCADD in this book. 
Example: 


CALL SYSPUTEA 'ABC.DAT', 'SECURITY', 'Unclassified' 
IF RESULT = Q 
THEN SAY 'SUCCESSFUL' 


SYSQUERYCLASSLIST Function (OS/2 Only) 


CALL SYSQUERYCLASSLIST ‘REXX variable stem' Gives a complete list of registered object 
classes. The classes are returned in REXX variables built upon REXX variable stem). If the stem specified is 

_ LINE., then the first class found is returned in LINE.1. The number of items returned is placed in the '0' element 
based on the stem, LINE.0 in this case. Requires pre-registering, discussed under RXFUNCADD in this book. 
Example: 


CALL SYSQUERYCLASSLIST 'LINE.' 
SAY 'THE CLASSES REGISTERED ARE: ' 
DO 1 = 1 TO LINE.0 

SAY LINE.I 
END 
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SYSREGISTEROBJECTCLASS Function (OS/2 Only) 


CALL SYSREGISTEROBJECTCLASS ‘class name’, 'module name’ 
SAY RESULT 


Registers a new object class definition, using class name as a name and module name as the module containing the 
object definition. RESULT contains a 1 if the action was successful, otherwise it contains a 0. Requires pre- 
registering, discussed under RXFUNCADD in this book. 

Example: 


CALL SYSREGISTEROBJECTCLASS ,'NEWOBJECT', 'NEWDLL' 
IF RESULT = 1 
THEN SAY 'SUCCESSFUL' 


SYSRMDIR Function (OS/2 Only) 


CALL SYSRMDIR 'directory' 
SAY RESULT 


Deletes a directory named directory. Does not display an error message in case of failure. Returns a code number 
in RESULT that tells if it was successful. Requires pre-registering, discussed under RXFUNCADD 1n this book. 
Example: 


CALL SYSRMDIR 'REXXPRGS' 


SAY RESULT 

Codes returned in RESULT: 
0 successful 
2 file not found 
3 path not found 
5 access denied 
16 current directory 
26 not a DOS disk 
87 invalid parameter 
108 drive locked 
206 file name exceeds range error 


SYSSEARCHPATH Function (OS/2 Only) 


CALL SYSSEARCHPATH environment variable, file name 
SAY RESULT 


Searches a path specified in environment variable looking for a file. Environment variables are set in OS/2 in 
CONFIG.SYS, or in a SET OS/2 command. The normal environment variables to use here are PATH and DPATH. 
Returns the full file specification in RESULT, if successful, otherwise returns a null string. Requires pre- 
registering, discussed under RXFUNCADD in this book. 
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Example: 

CALL SYSSEARCHPATH 'PATH', 'MYPROGO1.CMD' 

LE ReoOULL = =" 

THEN SAY 'COULD NOT FIND FILE' 

ELSE SAY RESULT "is the full file specification" 


SYSSETICON Function (OS/2 Only) 


CALL SYSSETICON file name, icon file name 
SAY RESULT 


Associates an icon found in icon file name with a file named file name. Returns a 1 if successful, a 0 if not. 
Requires pre-registering, discussed under RXFUNCADD in this book. 
Example: 


CALL SYSSETICON 'ABC.DAT!', 'ABC.ICO' 
IF RESULT = 1 

THEN SAY 'SUCCESSFUL' 

ELSE SAY 'COULD NOT ASSOCIATE '! 


SYSSLEEP Function (OS/2 Only) 


CALL SYSSLEEP seconds Puts the program into a suspended state for the specified number of 
seconds. You may interrupt the program with CTRL and C or CTRL and Break. eae pre-registering, 
discussed under RXFUNCADD in this book. 

Example: 


CALL SYSSLEEP 1 /* zzzzzzzzz */ 


SYSTEMPFILENAME Function (OS/2 Only) 


FILE NAME = SYSTEMPFILENAME (‘partial file specification') 
SAY FILE NAME 


Gives a file name that does not currently exist and that can be safely used as a temporary file name. Partial file 
specification consists of a drive, a directory, and a file name containing one or more question marks (?). This 
function replaces the question marks with numbers that it chooses. Requires pre-registering, discussed under 


RXFUNCADD in this book. 

Example: 

TEMP_FILE = SYSTEMPFILENAME ('C:\REXXPRGS\TEMPFILE.???') 
RESULT = TEMP FILE 

IF TEMP FILE ="" THEN SAY 'COULD NOT PRODUCE TEMP NAME! 


BLSE SAY TEMP PILE '1LS THE TEMP FIGs NAME ' 
/*will give something like C:\REXXPRGS\TEMPFILE.123*/ 


79 REXX Reference 


SYSTEXTSCREENREAD Function (OS/2 Only) 


SCREEN CH = SYSTEXTSCREENREAD(ron, column, length) 
SAY 'READ THESE CHARACTERS' SCREEN CH 


Reads characters off the screen. Starts reading at row and column, and reads length characters. Will not work under 
the Presentation Manager. Requires pre-registering, discussed under RXKFUNCADD in this book. 
Example: 


SCREEN CH = SYSTEXTSCREENREAD (10, 20, 40) 
SAY 'READ THESE CHARACTERS' SCREEN CH 


SYSTEXTSCREENSIZE Function (OS/2 Only) 


SCREEN _ SIZE = SYSTEXTSCREENSIZE() 
SAY 'SCREEN SIZE IS' SCREEN SIZE 


Tells the screen size with two numbers: rows and columns. Will not work under the Presentation Manager. 
Requires pre-registering, discussed under RXFUNCADD in this book. 
Example: | 


SCREEN SIZE = SYSTEXTSCREENSIZE () 
SAY 'SCREEN SIZE IS' SCREEN SIZE 
PARSE VAR SCREENSIZE ROWS COLUMNS 
SAY ROWS !'ROWS' 

SAY COLUMNS !'COLUMNS' 


SYSVAR Function (TSO Only) 


SAY SYSVAR(jype of info desired) Retrieves information about one system variable at a time. 
type of info desired: 

SYSPREF the prefix that TSO is putting in front of dataset names without apostrophes. 
SYSPROC the logon procedure used to log on 

SYSUID the userid you logged on with 

SYSLTERM number of lines available on the terminal screen 

SYSWTERM _ width of the terminal screen 

SYSENV environment you are executing in 


FORE in normal foreground TSO 
BACK when executed thru JCL 


SYSICMD the name by which the program was executed implicitly 
SYSISPF ACTIVE if dialogue manager is available 
NOT ACTIVE if not 
SYSNEST YES if program executed from another program/CLIST 
NO if executed directly from TSO 
SYSPCMD the most recently executed TSO command 
SYSSCMD the most recently executed TSO subcommand 
SYSCPU how many CPU seconds used so far 


SYSHSM a null if HSM not available, or a number indicating release of HSM available 
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SYSLRACF a null if RACF is not installed, or a number indicating level of RACF available 
SYSRACF AVAILABLE if RACF available 

NOT AVAILABLE if RACF not available 

NOT INSTALLED if RACF not installed 


SYSSRV how many SRM service units used so far 

SYSTSOE level of TSO/E installed 

Syntax error if wrong type is specified. 

Examples: 

SAY SYSVAR ("SYSENV" ) /* FORE */ 

SAY SYSVAR("SYSUID") /* TSOU01 (or other TSO userid) */ 


SYSWAITNAMEDPIPE Function (OS/2 Only) 


CALL SYSWAITNAMEDPIPE "pipe" 
SAY RESULT 


Waits for a named pipe. The success or failure is reported in RESULT. A 0 indicates that the action is complete, a 
2 that the pipe could not be found, and 231 that there was a timeout. Requires pre-registering, discussed under 
RXFUNCADD in this book. 

Example: 


CALL SYSWAITNAMEDPIPE '\PIPE\nameofpipe' 
SAY RESULT 


TE TSO and CMS Command (TSO and CMS Only) Turns off interactive debug. 


¢ On TSO, it may be executed after an attention interrupt obtained by pressing the PA1 key or the ATTN key. 


¢ On CMS, it may be executed as a CMS immediate command when the screen is displaying MORE .. . in the 
lower right. 


TIME Function 
SAY TIME() Returns the time of day formatted as 14:22:55. 


SAY TIME(type) Returns the time of day formatted according to type 


Types: 

(omitted) 14:22:55 

» "Civil time" 10:26pm 

H Hours since midnight: 14 

L "Long" includes microseconds 
M Minutes since midnight: 22 

S Seconds since midnight: 55 

E (first time) Starts elapsed time counter 


E (second time) Gives elapsed time in seconds, since first E 
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R Resets elapsed time counter to zero 
Example: 
SAY TIME('H') /* 14 (or other hour) */ 


TRACE Function 


CALL TRACE 'trace option' Changes the trace option to the one specified. Same as using the 
command TRACE trace option. 


Trace options: 


N Normal, the default: trace Syntax errors 

E Error: trace environment commands that don't work properly 

F Failure: trace environment commands that abend or don't exist 

C Commands: under OS/2 this is on by default in OS/2 Window/Full Screen 
turn off by placing "@" before the command, as in "@DIR" 
under OS/2 this is off by default in presentation manager window 
turn it on by TRACE C 

R Results: display results of REXX verbs 

I Intermediate: display intermediate results of REXX verbs 

L Labels: display labels that are entered 

S Scan: do not execute anything; just do a partial check for syntax 

O Off: turn off tracing 

SAY TRACE() Returns the current trace setting 

Example: 


CALL TRACE I 
SAY TRACE()/* I */ 
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TRACE Instruction Controls tracing and interactive debugging. 


Examples (starting with those that trace the least and ending with those that trace the most): 


TRACE ! 


TRACE !C (Commands) 


TRACE !R (Results) 


TRACE !I (Intermediate) 


TRACE 0 (Off) 


TRACE N (Normal) 


TRACE F (Failure) 


TRACE E (Error) 


TRACE C (Commands) 


TRACE L (Labels) 
TRACE A (All) 


TRACE S (Scan) 


TRACE R (Results) 


TRACE I (Intermediate) 


Nothing traced, 
don't execute TSO or CMS commands. 
non-functional under OS/2 


Trace TSO or CMS commands; 
don't execute TSO or CMS commands. 
non-functional under OS/2 


Trace labels, commands, 

REXX verbs, changed variables; 

don't execute TSO or CMS commands. 
non-functional under OS/2 


Trace labels, commands, 

REXX verbs, changed variables, Intermediate results 
ex: C = (4*3) + 2; 

don't execute TSO or CMS commands. 
non-functional under OS/2 


Nothing traced. 


Trace Environment commands that (the default) fail/error out; 
REXX verbs that fail. 


Trace Environment commands that terminate abnormally, 
or don't exist. 


Trace Environment commands that don't work. 


Trace Environment commands. 

under OS/2 this is on by default in OS/2 Window/Full Screen 
turn off by placing "@" before the command, as in "@DIR" 
under OS/2 this is off by default in presentation manager window 
turn it on by TRACE C 


Trace labels. | 
Trace labels, commands, REXX verbs. 


Trace labels, commands, and REXX verbs 
but don't execute anything. 


Trace labels, commands, REXX verbs, 
changed variables. 


Trace labels, commands, 
REXX verbs, changed variables; 
intermediate results ex: C = (4*3) + 2. 
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TRACE ?R (Results) Trace labels, commands, REXX verbs, changed variables; 
interactive debug. 


TRACE ?I1 (Intermediate) Trace labels, commands, 
REXX verbs, changed variables, 
intermediate results ex: C = (4*3) + 2; 
interactive debug. 


TS TSO and CMS Command (TSO and CMS Only) Turns on interactive debug with an automatic 
TRACE RESULTS. 


¢ On TSO, it may be executed after an attention interrupt obtained by pressing the PA1 key or the ATTN key. 


¢ On CMS, it may be executed as a CMS immediate command when the screen is displaying MORE .. . in the 
lower right. | 


Turning on interactive debug outside of the program with an operating system command 
CMS SET EXECTRAC ON 

TSO  EXECUTIL TS 

OS/2. SET RXTRACE=ON 


TRANSLATE Function 
NEW_STRING = TRANSLATK(string, output table, input table) Translates string, converting any 
occurrence of character 1 in input table to character 1 of output table; character 2 to character 2,and so on. 
Examples: 


/* note there is a space after NOYEM*/ 
SAY TRANSLATE ('DINERO', 'NOYEM ' 'NIREDO' ) /* MONEY */ 


SAY TRANSLATE ('HI', 'abcdefghij!, 'ABCDEFGHIJ' ) /*® hi */ 


NEW_STRING = TRANSLATE(string, output table, input table, pad) Translates string, converting any 
occurrence of character 1 in input table to character 1 of output table; character 2 to character 2,and so on. Pad 
character is used if there is a character in the input table, but not in the output table. 


Examples: 

SAY TRANSLATE ('HI', 'abcdefgh', 'ABCDEFGHIJ','’!7’) fe Dy ey 
NEW_STRING = TRANSLATE(string) Converts string to upper case. 

Example: 


SAY TRANSLATE('abcdefghi') /* ABCDEFGHI */ 
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TRUNC Function 


SAY TRUNC(number, decimal places) Returns the number with decimal places decimal places. 
Truncates or zero fills as needed. 


Examples: 


SAY TRUNC (1234.5,4) /* 1234.5000 */ 
SAY TRUNC (1234.5,0) /* 1234 */ 


UPPER Instruction (TSO and CMS Only) 


UPPER variable Converts the alphabetic contents of variable to uppercase. 


Example: 
VAR1L = "this is lower" 
UPPER VARI. 


USERID Function (TSO and CMS Only) 


SAY USERID() Returns the userid you are logged on with. 
Example: 
SAY USERID () /* possibly TSOU01 or VMUSR1 */ 
VALUE Function 
SAY VALUE(symbol) Returns the contents of symbol after resolving it as a variable. 
Examples: 
PROG NAME = '!COBOL' 
COBOL = 'ENGLISH-LIKE' 
SAY VALUE ('PROG NAME’ ) /* COBOL */ 
SAY VALUE (PROG NAME) /* ENGLISH-LIKE */ 
VERIFY Function 
SAY VERIFY(string1, string2) Are all the characters of string] made up of characters found in 
string2? Returns a 0 if yes, otherwise the position of first character in string/ that is not in string2. 
Examples: 


SAY VERIFY('SUSAN', 'ABNTUSV') /* 0 */ 
SAY VERIFY('SUSAN','ABCDEFG') /* 1 */ 
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WORD Function 

SAY WORD(string, n) Returns the n'th word in string. 

Example: 

SAY WORD('ET PHONE HOME COLLECT' , 2) /* PHONE */ 
WORDINDEX Function 

SAY WORDINDEX(string, n) Returns the character position of the n'th word in string. 

Example: 

SAY WORDINDEX('ET PHONE HOME COLLECT' , 2) /* 4 */ 
WORDLENGTH Function 

SAY WORDLENGTH(string, n) Returns the length of the n'th word in string. 

Example: 


SAY WORDLENGTH ('ET PHONE HOME COLLECT', 2) f® 5 *; 


WORDPOS Function 


SAY WORDPOS(phrase, string) Searches for phrase in string. Counts the words in string until there is 
a match. Returns the word count. 
Example: 


SAY WORDPOS ('PHONE HOME','ET PHONE HOME COLLECT!) /* 2 */ 


SAY WORDPOS(phrase, string, starting word) Searches for phrase in string, starting with starting 
word. Counts the words in string until there is a match. Returns the word count. 
Example: 


SAY WORDPOS ('HI','HI HO HI HO OFF TO WORK WE GO',2) /* 3 */ 


WORDS Function 


SAY WORDS(string) Counts the words in string. Returns the word count. 
Example: 


SAY WORDS ('ET PHONE HOME COLLECT!) /* 4 */ 
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XRANGE Function 
SAY XRANGE(starting character, ending character) You specify a starting character and an ending 
character. The function returns all the characters that lie between the two. 
Example: 


SAY XRANGE('A','D') /* ABCD */ 


Unprintable and nondisplay characters may be specified as Hexadecimal constants. 


Examples: 
SAY XRANGE ('F1'X, 'F5'X) fe 12345. */ 
SAY XRANGE ('00'X,'09'X) /* 00010203040506070809 


(This is the Hex value of what returned but is unprintable. 
The following example will clarify.) */ 

IF XRANGE('00'X,'09'X) = '00010203040506070809'X 

THEN SAY 'IT IS EQUAL' /* true */ 

Also, note this: 


SAY (C2X (XRANGE ('00'X, '09'X) ) /* 00010203040506070809 */ 
X2B Function 

SAY X2B(hexstring) Converts hexstring to binary but displayed in character format. 

Example: 

SAY X2B('FO') f* 11120000 *y 
X2C Function 

SAY X2C(hexstring) Converts hexstring to character. 

Example: 

SAY X2C('313233')} f= 123 *y 


/* Note: same as SAY '313233'X */ 


X2D Function 
\AY X2D(hexstring) Converts hexstring to decimal. 
Examples: 
SAY X2D(81) f®? 129 *7 
SAY X2D('F') f® 15 *7 
SRY X2D('FLIF2ZES* ) /* 15856371 */ 
SAY X2D (313233) J* 3224115 */ 
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Appendix A 
The Use of REXX for OS/390 JCL Standardization with PRO/JCL™ 


Diversified Software Systems Inc. a leading software vendor provided examples demonstrating their 
use of IBM's REXX language as the language of choice to allow users to customize their mainstream 
software package. They chose the REXX language due to its ease of use and flexibility. 


PRO/JCL™ for OS/390™ is the most advanced JCL quality management product on the market 
today. PRO/JCL is used for error detection, global change and standardization of JCL. It is used in all 
phases of the JCL lifecycle, from development, testing and staging through production. PRO/JCL is 
used to achieve and maintain the most error free, standardized production environment possible. 
Clients can automate one-time projects like SMS conversions, consolidations and JCL 
standardization efforts. 


PRO/JCL is invaluable for automating the routine changes that are required when moving JCL from 
test to production. In addition, major JCL conversion projects, such as standardization of symbolics 
usage and customization and distribution of application jobstreams based on a master copy, can be 
accomplished easily with PRO/JCL. 


PRO/JCL reads the JCL and all related components such as cataloged PROCs, INCLUDE members 
and other members that contain utility control statements. After the JCL 1s parsed and mapped into 
memory, the JCL Manipulation Program (JMP) is invoked. The JCL Manipulation Program calls 
JMP routines that are written by the user in REXX. JMP includes pre-defined functions that make 
accessing the individual components of a JCL statement, producing error messages, and making 
changes to the JCL easier. The starting point to a JMP routine is the sample “skeleton”’ that is 
provided with PRO/JCL. User-written routines are added into the “skeleton” program. 


These examples show the results of the JMP routines using the Structured JCL Listing (SJL) output. 
The SJL is the standard report that is produced by PRO/JCL. The SJL includes potential OS/390 JCL 
error messages, standards violation messages and messages resulting from changes made by the JMP 
routines written by the user. 


Example 1 - Test Job Name Character 


This example demonstrates retrieving and inspecting statement names, such as job 
names, step names, ddnames, and PROC names. 


Functions used in this example: 


e JMPgetStmtName. Retrieves the value of a statement name. 


e JMPaddError. Attaches an error message to the statement. 


Standard 
The first character of a production job name must be Q, F, E, D, T, or P. 
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JMP Code 
Test First Character of Job Name for Standard, JMP Code: 


JERE AS ea ee EG oH eae aS OF Ae eR He ae IES A He Hehe Ie Ae ase He Ae Hes She ae ae ae ae he SA AS a IS 2 Ee She he ee a Oe ee Oe aS RC Oe a 
* 


JOB Statement (JCL ) 


* 


BR A 2 2 2A A CE 2A 2A A 2 2 2A 2 CCC 2 2 2 ACC 2 2 2 2 2 2 CE 2 2 2 ee oe 2 2 2 2 ao oe 2 2k A 2K / 
jmp_jcl_job: PROCEDURE 
job_ stmt = ARG(1) 
counter = ARG(2) /* ARG(2) is statement number */ 


perenne Sita vor added code, rere, 
jobname = DSSIAPI("JMPgetStmtName" job stmt) 
letter! = substr(jobname, 1,1) 
if pos(letter!,QFEDTP) = 0 then do 
error = DSSIAPI("JMPaddError" job_stmt,90001,20,, 
"ERROR - First character of job name must be Q,F,E,D,T, or P.") 
end 
(PEER See* Fe OL VOUr added code, rere) 





return dd_stmt 


Input JCL 
Test First Character of Job Name for Standard, Input JCL: 


/ZABAAAAB JOB (0423111),,JONES',;CLASS=A,MSGCLASS=J, 
// REGION=1M | 
//STEP1 EXEC PGM=IEFBRI14 





Output Structured JCL 
Listing (SJL) 


Test First Character of Job Name for Standard, Output SJL: 
//ZABAAAAB JOB (0431111),,JONES',;CLASS=A,MSGCLASS=J, 


// REGION=1M 
E1 - USR90001E - ERROR - FIRST CHARACTER OF JOB NAME MUST BE 


Q,F,E,D,T, OR P. 
//STEPO1] EXEC PGM=IEFBRI14 





Change Rule 
On DD statements, change the keyword DSNAME to DSN. 
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JMP Code 
On DD Change Keyword, JMP Code: 


* 

* DD Statement (JCL ) 

* 

Bf Mbeki he Ae ahs Shs Shel Spe ie Shen is Oe Ae Phe AS Phe ahs Ae oa oe he aca a a ache ee ae ae ah ae Se a oe Se he ee ok he ea abs se hea a Se ef 


jmp_jcl_dd: PROCEDURE expose cur_jcl_job_ stmt, 
cur jcl exec pgm stmt cur_jcl_ exec proc stmt 
dd_ stmt = ARG(1) | 
counter = ARG(2) /* ARG(2) is statement# */ 
pre orse Start Of Your added Code, FPF Peere rs, 
val = DSSIAPI("JMPsetKeywordName",dd_ stmt,"DSNAME","DSN") 
if JPRC == 'OK' then 
error = DSSIAPI("JMPaddError",dd_stmt,90000,0,, 
"DSNAME has been changed to DSN") 
pees Fad OF your added CouE, Ferrers) 
return dd_stmt 


Input JCL 
On DD Change Keyword, Input JCL: 


//DD01 DD DSNAME=&&FILE1,DISP=(NEW,PASS,DELETE), 


// VOL=SER=DSS801,SPACE=(TRK,1,RLSE) 





Output Structured JCL 
Listing (SJL) 


On DD Change Keyword, Output SJL: 


</DD01 DD DSNAME=&&FILE1,DISP=(NEW,PASS,DELETE), 
<<} VOL=SER=DSS801,SPACE=(TRK,1,RLSE) 
<>DD01 DD DSN=&&FILEl, 


<> DISP=(NEW,PASS,DELETE), 
<> SPACE=(TRK,1,RLSE), 
<> VOL=SER=DSS801 
E1 - USR90000A - DSNAME HAS BEEN CHANGED TO DSN 





Note that the original line is marked for change by the </ symbol, the changed line is 
marked by the <> symbol, and the statement has been reformatted. 


These examples are provided as an illustration. For additional information please see the PRO/JCL 
for OS/390 JMP Facility Guide from Diversified Software. 
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Appendix B 
LISTDSI Function (TSO only) 


CALL LISTDSI “data set name” “DIRECTORY” 
SAY RESULT 
This is a built-in function that is available only under TSO. 


This will return information about the data set name. You may omit DIRECTORY if you are not inquiring about a PDS, 
or if you do not want PDS directory information. The call will set the variables listed below to values corresponding to 
the data set. It will also set the reserved variable RESULT to one of the following. 


0 if legitimate information was returned. 
4 if some information is missing. Possibly because PDS directory information was not obtained. 
16 if the call did not work. No valid information was returned. 


Example: 
CALL LISTDSI “ ’SYS1.PROCLIB’ ” “DIRECTORY” 
SAY RESULT 


Note the apostrophes around the data set name, as required by TSO naming conventions. Also note the quotation marks 
around the apostrophes, needed so that REXX will keep the apostrophes and not interpret them as a literal delimiter. 


Variables that are set: 


Variable Contents 

SYSDSNAME Data set name 

SYSVOLUME Volume serial ID 

SYSUNIT Device unit on which volume resides 
SYSDSORG Data set organization: 


PS - Physical sequential 

PSU - Physical sequential unmovable 

DA - Direct organization 

DAU - Direct organization unmovable 

IS - Indexed sequential 

ISU - Indexed sequential unmovable 

PO - Partitioned organization 

POU - Partitioned organization unmovable 
VS - VSAM 

22? - Unknown 


SYSRECFM Record format; three-character combination of the following: 
U - Records of undefined length 
F - Records of fixed length 
V - Records of variable length 
T - Records written with the track overflow feature of 
the devices (3375 and 3380 do not support track overflow) 
B__ - Records blocked 
S  - Records written as standard or spanned variable-length blocks 
A - Records contain ASCII printer control characters 
M - Records contain machine code control characters 
? - Unknown 


SYSLRECL 


SYSBLKSIZE 


SYSKEYLEN 


SYSALLOC 


SYSUSED 


SYSPRIMARY 


SYSSECONDS 


SYSUNITS 


SYSEXTENTS 


SYSCREATE 


SYSREFDATE 


SYSEXDATE 


SYSPASSWORD 


SYSRACFA 


SYSUPDATED 


SYSTRKSCYL 


SYSBLKSTRK 
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Logical record length 

Block size 

Key length 

Allocation, in space units 
Allocation used, in space units 
Primary allocation in space units 
Secondary allocation in space units 
Space units: 


CYLINDER - Space units in cylinders 


TRACK - Space units in tracks 
BLOCK - Space units in blocks 
29299999 


2229229 - Space units are unknown 
Number of extents allocated 


Creation date Year/day format, for example: 1990/102 


Last referenced date Year/day format, for example: 1990/107 
(Specifying DIRECTORY causes the date to be updated) 


Expiration date Year/day format, for example: 1990/365 
Password indication: 

NONE - No password protection 

READ - Password required to read 

WRITE - Password required to write 

RACF indication: 

NONE - No RACF protection 

GENERIC - Generic profile covers this data set 
DISCRETE - Discrete profile covers this data set 


Change indicator: 


YES - Data set has been updated 
NO - Data set has not been updated 


Tracks per cylinder for the unit identified in the SYSUNIT variable 


Blocks per track for the unit identified in the SYSUNIT variable 


SYSADIRBLK 


SYSUDIRBLK 


SYSMEMBERS 


SYSREASON 


SYSMSGLVLI 


SYSMSGLVL2 
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Directory blocks allocated - returned only for partitioned data sets when 
DIRECTORY is specified 


Directory blocks used - returned only for partitioned data sets when 
DIRECTORY is specified 


Number of members - returned only for partitioned data sets when 
DIRECTORY is specified 


LISTDSI reason code 
See below 


First level message, 1f an error occurred 


Second level message, if an error occurred 


Reason codes returned in SYSREASON. 


Reason Code 


0: 


11 


12 


13 


14 


Ly 


Description 

Normal completion. 

Error parsing the function. 

Dynamic allocation processing error. 

The data set is a type that cannot be processed. 

Error determining UNIT name. 

Data set not cataloged. 

Error obtaining the data set name. 

Error finding device type. 

The data set does not reside on a direct access storage device. 
DFHSM migrated the data set. NORECALL prevents retrieval. 
Directory information was requested, but you lack access authority 
VSAM data sets are not supported. 

The data set could not be opened. 

Device type not found in unit control block (UCB) tables. 


System or user abend occurred. 
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Reason codes returned in SYSREASON Continued. 


Reason Code 
18 
19 
20 
21 
22 
23 
24 
25 
2d 
28 


29 


Description 
Partial data set information was obtained. 


Data set resides on multiple volumes. 


_ Device type not found in eligible device table (EDT). 


Catalog error trying to locate the data set. 


- Volume not mounted. 


Permanent 1/0 error on volume. 

Data set not found. 

Data set migrated to non-DASD device. 

No volume serial is allocated to the data set. 
The ddname must be one to eight characters. 


Data set name or ddname must be specified. 
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%1 (Batch file) equivalent, see Arg, 5 

Abbrev, 3 

Abs, 3 

Address, 4 

ADDRESS, 3 

Arg, 6 

ARG, 5 

B2x, 7 

BEEP, 6 

BITAND, 6 

Bitor, 7 

Bitxor, 7 

Boot Drive, 7 

Buffer, delete, see Dropbuf, 27 

C2), 21 

C2X,, 21 

Call, 7 

Center, 9 

Character to decimal conversion, see C2D, 21 

Character to hexadecimal conversion, see C2X, 21 

Charin, 10 

Charout, 10 

CHAROUT, 10 

Chars, 11 

Cmsflag, 12 

Command line parameters, see Arg, 6 

Command line parameters, see Arg, 5 

Commands, pass to specific environment, see Address, 
4 

Comment., 12 

Compare, 13 

Compatibility issues across different platforms, 13 

Compound Variables, 17 

Concatenating data strings, 18 

Concatenating to SYSPROC/SYSEXEC, 18 

Condition, 20 

Conwait, 20 

Copies, 20 

DZ, 25 

D2x, 27 

Data queue, delete on CMS, see Desbuf, 24 

Data Queue, delete on OS/2, see Rxqueue, 60 

Data Queue, delete on TSO, see Delstack, 23 

Data queue, delete, see Dropbuf, 27 

Data strings, concatenating, 18 

Datatype, 21 

Date, 22 

Decimal to hexadecimal conversion, see D2x, 27 

Delstack, 23 

Delstr, 23 

Delword, 24 

Desbuf, 24 


Diagrc, 24 

Digits, 24 

Directory, 24 

Do, 26 

Drive and directory settings, restore, see Endlocal, 27 

Drop, 26 

Dropbuf, 27 

End, 27 

Endlocal, 27 

Environment, see ADDRESS, 4 

Error message, see ERRORTEXT, 28 

Error Messages, see CALL ON, 8 

Errortext, 28 

Execio, 28 

Executil, 30 

Exit, 30 

Expose, 30 

Externals, 31 

Files, reading and writing on TSO and CMS, see 
Execio, 28 

Files, reading and writing, see Charout, 10 

Filespec, 31 

Find (function), 31 

Form, 31 

Format, 31 

Functions classified by type, 33 

Functions in general, 31 

Fuzz, 35 

Hi, 35 

it; 33 

If, 36 

Index, 38 

Insert, 39 

Interactive Debug, see Trace, 82 

Interpret; 39 

Iterate, 39 

Iteration, see Do, 26 

Justify, 40 

Lastpos, 40 

Leave, 40 

Left, 41 

Length, 41 

Linein, 42 

Lineout, 42 

Lines, 43 

LISTDSL 91 

Looping, see Do, 26 

MACROS, 43 

Makebuf, 44 

Max, 45 

Min, 45 

Msg, 45 
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Newstack, 46 

Nop, 47 

Numeric, 47 

Numeric, check for valid, see Datatype, 21 
Options, 48 

Otherwise, 48 

Outtrap, 49 

Overlay, 49 

Parameters, see Arg, 6 

Parse, 49 

PERFORM (COBOL) equivalent, see Call, 7 
Pos, 52 

Precedence of operators., 52 

PROC (TSO CLIST) Statement equivalent, see Arg, 5 
Procedure, 52 

Profile.ERX, 52 

Prompt, 53 

Prompt line parameters, see Arg, 5, 6 
Pull, 53 

Push, 53 

Qbuf, 54 

Qelem, 54 

Qstack, 54 

Queue, 54 

Queued, 55 

Random, 55 

Re, 56 

Record Level API limitations, 88 
Repeat, see Do, 26 

Restore drive and directory settings, see Endlocal, 27 
Result, 56 

Return, 57 

Reverse, 57 

Right, 57 

Rt, 58 

Rxfuncadd, 58 

Rxmessagebox, 59 

Rxqueue, 60 

Say, 61 

Select, 62 

Setlocal, 62 

Sigl, 63 

Sign, 63 

Signal, 63 

Sourceline, 65 

Space, 66 

Storage, 66 

Stream, 66 

Strip, 68 

Subcom, 68 

Subroutine invocation, see Call, 7 
Subscripted variables, see Compound Variables, 17 
Substr, 69 


Subword, 69 

Symbol, 69 

Syscls, 69 
Syscreateobject, 70 
Syscurpos, 70 
Syscurstate, 71 
Sysderegisterobjectclass, 71 
Sysdestroyobject, 71 
Sysdriveinfo, 72 
SYSDRIVEMAP, 72 
Sysdropfuncs, 72 
SYSEXEC, concatenation to, 18 
Sysfiledelete, 73 
Sysfilesearch, 73 
Sysfiletree, 73 

Sysgetea, 74 

Sysgetkey, 75 
Sysgetmessage, 75 
Sysmkdir, 75 

Sysos2ver, 76 

Sysputea, 76 
Sysqueryclasslist, 76 
Sysregisterobjectclass, 77 
Sysrmdir, 77 
Syssearchpath, 77 
Sysseticon, 78 

Syssleep, 78 
Systempfilename, 78 
Systextscreenread, 79 
Systextscreensize, 79 
Sysvar, 79 
Syswaitnamedpipe, 80 
Te, 80 

Time, 80 

Trace, 81, 82 

Translate, 83 

Trunc, 84 

Ts, 83 

Undefine a variable, see Drop, 26 
Upper, 84 

Userid, 84 

Value, 84 

Variable, undefine, see Drop, 26 
Variables, compound, 17 
Verify, 84 

Word, 85 

Wordindex, 85 
Wordlength, 85 
Wordpos, 85 

Words, 85 

X2B, 86 

X2C, 86 

X2D, 86 


Xrange, 86 
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